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* STRUCITOE DIAGRAM TOO LARGE FOR DISPLAY - AVAILABLE VIA OFFLINE PRINT * 

AB 1,3-Disubstituted tetrahydro-oxazolo-isoquinolinones I (R - „ rn-?^^ 
or p-C02Et) were obtained from phenylalanine in seven step^ and 42% 
overall yield by Katritzky's benzotriazole method. ?he tricycliJ 
oxazolxd.none 1 R = a-C02Et) was further converted Into ImJJo ^Ic . 
II (R - a-CH20Me) by employing a chemoselective reduction of the e^t-^^ 
group with LiBH4/Me0H. Compound II (R = a-CH20Me) and ?L 
corresponding 1-unsubstituted tetrahydroisoquinoline ale 11 „^ 
converted into aldehydes III and iv/ which cyclizerin the prisence of 
different Lewis acids to give the substituted presence of 

azepino [1, 2-b] isoquinolines V and VT T-f»cT^ ^v, i 

features of the a?Kaloid .uin.lTraYn mlT.' J^rstSoSe^t'^JL'?::' of 
S ^^^f>;^^'^^^^^^^'^'' heteroene reaction are highly dependent 

cr the substitution pattern and the type of Lewis acid. ^^'"^^''^ 

cc 26-6 (Biomolecules and Their Synthetic Analogs) 
Section cross-reference (s) : l, 27 

ST asym synthesis azepinoisoguiniline Lewis acid catalyzed 

IT Cyclization catalysts 

(Lewis acid-catalyzed hetero-ene cyclization catalysts; 

SS^JIn^jJSr ^"^''^^'^ °' functionalized aze^ino'u,2- 
IT Addition reaction catalysts 

(ene Lewis acid-catalyzed hetero-ene cyclization catalysts- 

bUs~^JL%'r ^'^''^^'^ °^ functionalized azepinofl^'" 
IT Addition reaction 

(ene, stereoselective, Lewis acid-catalyzed hetero-ene 

azepinoM°;'"h?if '^""^^^^'^^f^^^ synthesis of f unctionalized 

azepmo [1/ 2-bj isoquinolines) 

IT Cyclization 

(stereoselective, Lewis acid-catalyzed hetero-ene 
aSi^^Ur^ibfis^^^ColSS^-^ ^--^^^^ - functionalized 

" ^^^s. ^iL%^oo^^ss-oP ^M^°oo^^sJ!.p 

782500-89-4P 782500-90-7P 782500-91-8P 's'fSS-Iz 9P 

^a2%%°;:o^^:4°P^ ^IToVol^^sl --°-oi-3P 

(Prep\^L^Kn?r^S^i; (RLianr:^^^e^--r"°^^ ^^^^ 

mSui^olSsf'"^ ^^"'"^^'^ °' functionalized azepino[l,2- 

" isIo^A^'o ^^r""'' ^thylaluminum dichloride, reactions 

7550-45-0, Titanium tetrachloride, reactions 7646-78-8 Tin 
tetrachloride, reactions 7646-85-7 7inn m\ ■ 
RL: RGT (Reagent); RACT (ReacJanfor' reagent"^ chloride, reactions 

mSuJnolln::)'"' '^'^^^'^ °' functionalized azepino [1,2- 
IT 782500-89-4P 

RL: RCT (Reactant); SPN (Synthetic preparation); prep 
(Preparation) ; ract (Reactant or reagent) 

bU^^^r^oJSs)'"' '^"'^^^'^ °' functionalized azepino[l,2- 

RN 782500-89-4 HCAPLUS 

CN Oxirane, (3 -methyl -2 -butenyl ) - , (2S) - (9CI) (CA INDEX NAME) 
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Biomimetic Synthesis of Fused Polypyrans : 
Oxacyclization Stereo- and Regioselectivity Is a 
Function of the Nucleophile 

Bravo, Fernando; McDonald, Frank E.; Neiwert, Wade A. ; 
Do, Bao; Hardcastle, Kenneth I. 

Department of Chemistry, Emory University, Atlanta, 
GA, 30322, USA 

Organic Letters (2003), 5(12), 2123-2126 

CODEN: ORLEF7; ISSN: 1523-7060 

American Chemical Society 

Journal 

English 

CASREACT 139:117351 
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AB The stereoselectivity of Lewis acid-induced endo-regioselective 

oxacyclizations of 1 , 4 -diepoxides is dependent upon the nature of the 
terminating nucleophile. For instance, ring-opening/recyclization of the 
carbonate-substituted diepoxide I (R = Me3C0) provides a cis -fused 
bicyclic product II, whereas carbamate -derived I (R = Me2N) affords the 
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trans-fused diastereomer of II. Stereospecif ic and regioselective 
conversion of the tertiary carbamate -terminated 1 , 4 , 7 - triepoxide III to 
tricyclic all-trans-fused polypyran IV is also demonstrated. 
CC 28-2 (Heterocyclic Compounds (More Than One Hetero Atom)) 
IT 565183-88-2P 

RL: RCT (Reactant) ; SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 

(allylic oxidation; biomimetic synthesis of pyranodioxanes , furanopyrans 
and pyranopyrans via regio- and stereoselective ring 
opening/oxacyclization of carbonate- and carbamate-derivatized 
diepoxides and triepoxides) 
IT 565183-76-8P 565183-77-9P 565183-78-OP 565183-80-4P 565183-82-6P 
565183-84-8P 565183-90-6P 565183-91-7P 565183-92-8P 
565183-93-9P 565183-94-OP 565183-95-lP 565183-96-2P 
565183-98-4P 

RL: RCT (Reactant); SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 

(biomimetic synthesis of pyranodioxanes , furanopyrans and pyranopyrans 
via regio- and stereoselective ring opening/oxacyclization of 
carbonate- and carbamate-derivatized diepoxides and triepoxides) 
IT 43161-23-5P 565183-74-6P 565183-79-lP 

565183-81-5P 565183-83-7P 565183-89-3P 
RL: RCT (Reactant); SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 

(epoxidn.; biomimetic synthesis of pyranodioxanes , furanopyrans and 
pyranopyrans via regio- and stereoselective ring opening/oxacyclization 
of carbonate- and carbamate-derivatized diepoxides and triepoxides) 
IT 565183-88-2P 

RL: RCT (Reactant); SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 

(allylic oxidation; biomimetic synthesis of pyranodioxanes , furanopyrans 
and pyranopyrans via regio- and stereoselective ring 
opening/oxacyclization of carbonate- and carbamate-derivatized 
diepoxides and triepoxides) 
RN 565183-88-2 HCAPLUS 

CN Silane, (1 , 1-dimethylethyl) [ [ (2R, 3R) -3 -methyl-3 - (3 -methyl-2 - 
butenyl)oxiranyl]methoxy]diphenyl- (9CI) (CA INDEX NAME) 

Absolute stereochemistry. Rotation (+) . 




Ph Ph 



IT 565183-92-8P 565183-93-9P 565183-94-OP 

RL: RCT (Reactant); SPN (Synthetic preparation) ; PREP 
(Preparation) ; RACT (Reactant or reagent) 

(biomimetic synthesis of pyranodioxanes, furanopyrans and pyranopyrans 
via regio- and stereoselective ring opening/oxacyclization of 
carbonate- and carbamate-derivatized diepoxides and triepoxides) 
RN 565183-92-8 HCAPLUS 

CN L-gluco-Heptitol, 2 , 3 : 5 , 6-dianhydro-4 , 7-dideoxy-l -O- [(1,1- 

dimethylethyDdiphenylsilyl] -3 -C-methyl-6-C- (3 -methyl-2 -butenyl ) - (9CI) 
(CA INDEX NAME) 
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RN 565183-93-9 HCAPLUS 

CN L-gluco-Heptitol, 2,3:5, 6 -dianhydro-4 , 7 -dideoxy-3 -C-methyl -6 -C- (3-methyl-2- 
butenyl)- {9CI) (CA INDEX NAME) 

Absolute stereochemistry. Rotation (+) . 



Me2C 




R R 



OH 



RN 565183-94-0 HCAPLUS 

CN L-gluco-Heptitol, 2,3:5, 6 -dianhydro-4 , 7-dideoxy-3 -C-methyl-6 -C- (3 -methyl-2 - 
butenyl)-, dimethylcarbamate (9CI) (CA INDEX NAME) 

Absolute stereochemistry. Rotation (+) . 



Me2C 




NMe2 



IT 565183-74-6P 565183-79-lP 565183-81-5P 
565183-83-7P 

RL: RCT (Reactant) ; SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 

(epoxidn. ; biomimetic synthesis of pyranodioxanes , furanopyrans and 
pyranopyrans via regio- and stereoselective ring opening/oxacyclization 
of carbonate- and carbamate -derivati zed diepoxides and triepoxides) 
RN 565183-74-6 HCAPLUS 

CN Oxiranemethanol, 3 -me thyl-3 - (3 -methyl-2 -butenyl) - , (2R,3R)- (9CI) (CA 
INDEX NAME) 

Absolute stereochemistry. Rotation (+) . 




CMe2 



RN 565183-79-1 HCAPLUS 

CN Carbamic acid, dimethyl-, [ (2R, 3R) -3 -methyl -3- (3 -methyl -2- 
butenyDoxiranyl] methyl ester {9CI) (CA INDEX NAME) 
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O 

RN 565183-81-5 HCAPLUS 

CN 1-Pyrrolidinecarboxylic acid, [ (2R, 3R) -3 -methyl-3 - (3 -methyl-2 - 
butenyDoxiranyl] methyl ester (9CI) (CA INDEX NAME) 

Absolute stereochemistry. 




RN 565183-83-7 HCAPLUS 

CN 4-Morpholinecarboxylic acid, [ (2R, 3R) -3-methyl-3- (3-methyl-2 - 
butenyDoxiranyl] methyl ester (9CI) (CA INDEX NAME) 

Absolute stereochemistry. 




O 
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A tellurium transposition route to allylic alcohols: 
overcoming some limitations of the Sharpless-Katsuki 
asymmetric epoxidation 

Dittmer, Donald C. ; Discordia, Robert P.; Zhang, 
Yanzhi; Murphy, Christopher K. ; Kumar, Archana; 
Pepito, Aurora S.; Wang, Yuesheng 

Cent. Sci. Technol . , Syracuse Univ., Syracuse, NY 
13244, USA 

Journal of Organic Chemistry (1993), 58(3), 718-31 

CODEN: JOCEAH; ISSN: 0022-3263 

Journal 
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LANGUAGE : Eng 1 i s h 

OTHER SOURCE (S): CASREACT 119:138472 

AB Good yields of enantiomeric allylic ales, can be obtained in high 

enantiomeric excess (ee) by combining the Sharpless-Katsuki asym. epoxidn. 
process (SAE) with tellurium chemical The advantages of the tellurium 
process are as follows: (1) the 50% yield limitation on the allylic ale. 
in the Sharpless kinetic resolution (SKR) can be overcome; (2) allylic 
tertiary ales, which are unsatisfactory substrates in the SKR can be 
obtained in high optical purity; (3) optically active secondary allylic 
ales, with tertiary alkyl siibstituents (e.g. tert-butyl) at C-1 can be 
obtained in high ee; (4) optically active sterically congested cis 
secondary ales, can be obtained in high ee; and (5) the nuisance of the 
slow SAE of some vinyl carbinols can be avoided. The key step in the 
reaction sequence is either a stereospecif ie 1 , 3 -transposition of double 
bond and ale. functionalities or an inversion of the ale. configuration 
with concomitant deoxygenation of the epoxide function in epoxy ales. 
Trans secondary allylic ales, can be converted to cis secondary allylic 
ales, by way of erythro epoxy ales, (glyeidols) ; threo glyeidyl derivs . 
are converted to trans secondary allylic ales. These transformations are 
accomplished by the action of telluride ion, generated in situ from the 
element, on a glyeidyl sulfonate ester. Reduction of elemental Te is 
conveniently done with rongalite (HOCH2S02Na) in an aqueous medium. This 
method is satisfactory when Te2- is required to attack a primary carbon 
site of a glyeidyl sulfonate. In eases where Te2- is required to attack a 
secondary carbon site, reduction of the tellurium must be done with NaBH4 or 
LiEt3BH. Elemental tellurium is precipitated during the course of the 

reactions 

and can be recovered and reused . 

CC 21-2 (General Organic Chemistry) 
Section cross-reference ( s) : 26 

IT 80232-50-4P 80287-12-3P 111321-48-3P 121401-06-7P 

121468-44-8P 121958-41-6P 131750-35-lP 131750-36-2P 131750-37-3P 
131750-38-4P 131831-36-2P 131831-37-3P 131831-38-4P 131831-39-5P 
147048-00-8P 147048-01-9P 147048-07-5P 147048-10-OP 147048-16-6P 
147127-69-3P 147127-70-6P 147127-73-9P 147127-79-5P 147127-80-8P 
1474 93- 35 -4P 2002 05 -69 -2P 

RL: RCT (Reactant) ; SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 

(preparation and reaction of, with telluride ion) 
IT 147048-17-7P 

RL: RCT (Reactant); SPN (Synthetic preparation); PREP (Preparation); RACT 
(Reactant or reagent) 

(preparation and reduction of, with lithium aluminum hydride) 
IT 62777-71-3P, (2R, 3R) -2 , 3 -Epoxygeraniol 78513-12-9P 80232-49-lP 
80299-55-4P 82188-73-6P 84039-81-6P 89194-12-7P 

97589-09-8P 107033-45-4P 107796-93-OP 114180-68-6P 114180-70-OP 
147047-99-2P 147048-15-5P 147048-20-2P 147127-72-8P 147127-74-OP 
147127-77-3P 147127-81-9P 147129-38-2P 147600-50-8P 161511-98-4P 
RL: RCT (Reactant); SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 
(preparation and tosylation of) 
IT 18448-47-0, Methyl 1-eyelohexene-l-carboxylate 
RL: RCT (Reactant); RACT (Reactant or reagent) 
(reduction of, with lithium aluminum hydride) 
IT 80232-50-4P 80287-12-3P 

RL: RCT (Reactant); SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 

(preparation and reaction of, with telluride ion) 
RN 80232-50-4 HCAPLUS 
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CN Oxiranemethanol, 2 -methyl -3- (3 -methyl-2 -butenyl ) 4- 

methylbenzenesulfonate, (2R-trans) - (9CI) (CA INDEX NAME) 




RN 80287-12-3 HCAPLUS 

CN Oxiranemethanol, 2-methyl-3- (3 -methyl -2 -butenyl) 4- 

methylbenzenesulfonate, (2S-trans)- (9CI) (CA INDEX NAME) 




IT 80232-49-lP 80299-55-4P 

RL: RCT (Reactant) ; SPN (Synthetic preparation); PREP 
(Preparation) ; RACT (Reactant or reagent) 

(preparation and tosylation of) 
RN 80232-49-1 HCAPLUS 

CN Oxiranemethanol, 2 -methyl-3- (3 -methyl-2-butenyl) - , (2S-trans) - (9CI) (CA 
INDEX NAME) 

Absolute stereochemistry. 




RN 80299-55-4 HCAPLUS 

CN Oxiranemethanol, 2 -methyl-3- (3 -methyl -2 -butenyl) - , (2R,3R)- (9CI) (CA 
INDEX NAME) 

Absolute stereochemistry. Rotation (+) . 
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Naruta, Yoshinori; Maruyama, Kazuhiro 

Fac. Sci., Kyoto Univ., Kyoto, 606, Japan 

Chemistry Letters (1987), (5), 963-6 

CODEN: CMLTAG; ISSN: 0366-7022 

Journal 

English 

CASREACT 108:37183 



L 



^CMe-CH2 I 



AB 



CC 
ST 

IT 
IT 



RN 
CN 



Allylic trimethylstannes react with vinyl epoxides in the presence of 
BF3.0Et2 to give 1,2- or 1,4 -addition products in good yield, depending on 
the substitution at the olefinic terminus. In either case 
regioselectivity is high. E.g., epoxymethylbutene I was treated with 
Me2C:CHCH2SnMe3 to give 91% CH2 iCKCMe 2 CH (CH2 OH) CMe :CH2 , which then 
underwent Cope rearrangement on treatment with DBU to give 100% of a 58:42 
mixture of (E) - and (Z) -HOCH2CH:CMeCH2CH2CH:CMe2 . 
23-7 (Aliphatic Compounds) 
Section cross-reference (s) : 27 

addn allylstannane vinyl epoxide regiochem; regiochem allylation vinyl 
epoxide; stannane allyl allylation vinyl epoxide; Lewis acid 
catalyst allylation regiochem; alkadienol; polyprenyl ale; ale unsatd 
1838-94-4 6705-51-7 6790-41-6 7437-61-8 13295-59-5 
50901-75-2 

RL: ROT (Reactant) ; RACT (Reactant or reagent) 

(allylation of, with allylic trimethylstannanes , regiochem. of) 
13295-59-5 

RL: ROT (Reactant); RACT (Reactant or reagent) 

(allylation of, with allylic trimethylstannanes, regiochem. of) 
132 95-59-5 HCAPLUS 

Oxirane, 2 , 2 -dimethyl-3 - (2-methyl-l-propenyl) - (9CI) (CA INDEX NAME) 



Me^ 



Me 



■ CH= CMe2 
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further compression is possible. A method known as tree 
encoding may, for example, be employed • Moreover, a 
method called quantization can be employed to further 
compress the data* Tree encoding and quantization are 
5 described in various texts and articles including "Image 
Compression using the 2-D Wavelet Transform" by A.S. Levis 
and G. Knowles, published in IEEE Transactions on Image 
Processing, April 1992. Furthermore, video data which 
comprises sequences of images can be compressed by taking 

10 advantage of the similarities between successive images. 
Where a portion of successive images does not change from 
one image to the next, the portion of the first image can 
be used for the next image, thereby reducing the number of 
bits necessary to represent the sequence of images. 

15 JPEG (Joint Photographies Experts Group) is. an 

international standard for still-images which typically 
achieves about a 10:1 compression ratios for monochrome 
images and 15:1 compression ratios for color images. The 
JPEG standard employs a combination of a type of Fourier 

20 transform, known as the discrete-cosine transform, in 
combination with quantization and a Huffman-like code. 
MPEGl (Motion PictTire Experts Group) and MPEG2 are two 
international video compression standards. MPEG2 is a 
standard which is still evolving which is targeted for 

25 broadcast television. MPEG2 allows the picture quality to 
be adjusted to allow more television information to be 
transmitted, e.g., on a given coaxial cable. H.261 is 
another video standard based on the discrete-cosine 
transform. H.261 also varies the amount of compression 

30 depending on the data rate required. 

Compression standards such as JPEG, MPEGl, MPEG2 and 
H.261 are optimized to minimize the signal to noise ratio 
of the error between the original and the reconstructed 
image. Due to this optimization, these methods are very 

3 5 complex. Chips implementing MPEGl, for example, may be 
costly and require as many as 1.5 million transistors. 
These methods only partially take advantage of the fact 
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that the human visual system is quite insensitive to 
signal to noise ratio. Accordingly, some of the 
complexity inherent in these standards is wasted on the 
human eye. Moreover, because these standards encode by 
5 areas of the image, they are not particularly sensitive to 
edge-type information which is of high importance to the 
human visual system. In view of these maladaptions of 
current compression standards to the characteristics of 
the human visual system, a new compression and 

10 decompression method is sought which handles the above- 
described boundary problem and which takes advantage of 
the fact that the human visual system is more sensitive to 
edge information than signal to noise ratio so that the 
complexity and cost of implementing the method can be 

15 reduced. 

SUMMARY 

A compression and decompression method using wavelet 
decomposition, frequency based tree encoding, tree based 
motion encoding, frequency weighted quantization, Huffman 

20 encoding, and tree based activity estimation for bit rate 
control is disclosed. Forward and inverse quasi-perfect 
reconstruction transforms are used to generate the wavelet 
decomposition and to reconstruct data values close to the 
original data values* The forward and inverse quasi- 

25 perfect reconstruction transfoinns utilize special filters 
at the boundaries of the data being transformed and/or 
inverse transformed to solve the above-mentioned boundary 
problem. 

In accordance with some embodiments of the present 
3 0 invention, a decompression method uses four coefficient 
inverse perfect reconstruction digital filters. The 
coefficients of these inverse perfect reconstruction 
digital filters require a small number of additions to 
implement thereby enabling rapid decompression in software 
3 5 executing on a general purpose digital computer having a 
microprocessor. The method partially inverse transforms a 
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sub-band decomposition to generate a small low frequency 
component image. This small image is expanded in one 
dimension by performing interpolation on the rows of the 
small image and is expanded in a second dimension by 
5 replicating rows of the interpolated small image. 
Transformed chrominance d^ta values are inverse 
transformed using inverse perfect reconstruction digital 
filters having a fewer number of coefficients than the 
inverse perfect reconstruction digital filters used to 

10 inverse transform the corresponding transformed luminance 
data values. In one embodiment, two coefficient Haar 
digital filters are used as the inverse perfect 
reconstruction digital filters which inverse transform 
transformed chrominance data values. Variable-length 

15 tokens are used in the compressed data stream to indicate 
changes in encoding methods used to encode data values in 
the compressed data stream. 

BRIEF DESCRIPTION OF THE DRAWINGS 

Figures 1-4 (Prior Art) are diagrams illustrating a 
20 sub-band decomposition of an image. 

Figure 5 (Prior Art) is a diagram illustrating a 
boundary problem associated with the generation of prior 
art sub-band decompositions. 

Figure 6 (Prior Art) is a diagram illustrating a 
25 solution to the boundary problem associated with the 
generation of prior art sub-band decompositions. 

Figure 7 is a diagram illustrating a one-dimensional 
decomposition . 

Figures 8 and 9 are diagrams illustrating the 
30 separation of an input signal into a high pass component 
and a low pass component. 

Figures 10, 11, 14 and 15 are diagrams illustrating a 
transformation in accordance with one embodiment of the 
present invention. 
35 Figures 12 and 13 are diagrams illustrating the 

operation of high pass and low pass forward transform 
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digital filters in accordance with one embodiment of the 
present invention • 

Figure 16 is a diagram of a two-dimensional matrix of 
original data values in accordance with one embodiment of 
5 the present invention. 

Figure 17 is a diagram of the two-dimensional matrix, 
of Figure 16 after one octave of foirward transform in 
accordance with one embodiment of the present invention . 
Figure 18 is a diagram of the two-dimensional matrix 
10 of Figure 16 after two octaves of forward transform in 
accordance with one embodiment of the present invention. 

Figures 19 and 20 are diagrams illustrating a 
boundary problem solved in accordance with one embodiment 
of the present invention. 
15 Figure 21 is a diagram illustrating the operation of 

boundary forward transform digital filters in accordance 
with one embodiment of the present invention. 

Figure 22 is a diagram illustrating the operation of 
start and end inverse transform digital filters in 
20 accordance with one embodiment of the present invention. 

Figure 23 is a diagram illustrating a one-dimensional 
tree structure in accordance one embodiment of the present 
invention. 

Figure 24A-D are diagrams illustrating the recursive 
25 filtering of data values to generate a one-dimensional 
decomposition corresponding with the one-dimensional tree 
structure of Figure 23. 

Figure 25 is a diagram of a two-dimensional tree 
structure of two-by-two blocks of data values in 
3 0 accordance with one embodiment of the present invention. 

Figure 26 is a pictorial representation of the data 
values of the two-dimension tree structure of Figure 25. 

Figures 27-29 are diagrams illustrating a method and 
apparatus for determining the addresses of data values of 
3 5 a tree structure in accordance with one embodiment of the 
present invention . 

Figure 30 and 31 are diagrams illustrating a 
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quantization of transformed data values in accordance with 
one embodiment of the present invention. 

Figures 3 2 and 33 are diagrams illustrating the 
sensitivity of the human eye to spatial frequency. 
5 Figures 34 is a diagram illustrating the distribution 

of high pass component data values in a four octave 
wavelet decomposition of the test image Lenna. 

Figure 35 is a diagram illustrating the distribution 
of data values of the test image Lenna before wavelet 
10 transformation. 

Figure 3 6 is a block diagram illustrating a video 
encoder and a video decoder in accordance with one 
embodiment of the present invention. 

Figure 37 is a diagram illustrating modes of the 
15 video encoder and video decoder of Figure 36 and the 
corresponding token values. 

Figure 38 is a diagram illustrating how various flags 
combine to generate a new mode when the inherited mode is 
send in accordance with one embodiment of the present 
20 invention - 

Figures 39-40 are diagrams of a black box on a white 
background illustrating motion. 

Figxires 41-43 are one-rdimensional tree structures 
corresponding to the motion of an edge illustrated in 
25 Figures 39-40. 

Figure 44 is a diagram illustrating variable-length 
tokens in accordance with one embodiment of the present 
invention. 

DETAILED DESCRIPTION OF THE PREFERRED EMBODIMENTS 
30 QUASI-PERFECT RECONSTRUCTION FILTERS 

The wavelet transform was introduced by Jean Morlet 
in 1984 to overcome problems encountered in analyzing 
geological signals. See "Cycle-octave and Related 
Transforms In Seismic Signal Analysis", Goupillaud, 
35 Grossman and Morlet, Geoexploration, vol. 23, 1984. Since 
then, the wavelet transform has been a new and exciting 
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method of analyzing signals and has already been applied 
to a wide range of tasks such as quantum mechanics and 
signal processing. The wavelet transform has a number of 
advantages over more traditional Fourier techniques 
5 principally used today in the analysis of signals. The 
wavelet transform and the high and low pass four 
coefficient quasi-perfect reconstruction filters of the 
present invention are therefore described by relating them 
to the windowed Fourier transform. 

10 The windowed Fourier transform is the principle 

transform used today to analyze the spectral components of 
a signal. The Fourier transform decomposes a signal under 
analysis into a set of complex sinusoidal basis functions. 
The resulting Fourier series can be interpreted as the 

15 frequency spectra of the signal. The continuous Fourier 
transform is defined as follows: 

i?*(«)-|_J«-i^»t£(t)dt (equ. 1) 

Where f (t) is the time domain signal under analysis and 
F(«) is the Fourier transform of the signal under 

20 analysis. Although many applications require an estimate 
of the spectral content of an. input signal, the above 
formula is impractical for most systems. In order to cal- 
culate the Fourier transform, the input signal f (t) must 
be defined for all values of time t, whereas in most 

25 practical systems, f (t) is only defined over a finite 
range of time. 

Several methods have therefore been devised to 
transform the finite input signal into an infinite signal 
so that the Fourier transform can be applied. The 

30 windowed Fourier transform is one such solution. The 
windowed Fourier transform is defined as follows: 

oj , -c ) = ( t-T ) 6-^'-^*"=/ ( c) dt ( equ . 2 ) 

Where f(t) is the time domain signal under analysis, 
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Fw(w,r) is the windowed Fourier transform of the time 
domain signal under analysis, and w(t) is the windowing 
function. The windowing function is usually chosen to be 
zero outside an interval of finite length. Alternatively, 
5 as the spectral content of the input f (t) varies with 
time, the input signal can be examined by performing the 
transform at time t using a more local window function. 
In either case, the output transform is the convolution of 
the window function and the signal under analysis so that 

10 the spectra of the window itself is present in the 

transform results. Conseguently , the windowing function 
is chosen to minimize this effect. Looking at this 
technique from another viewpoint, the basis functions of a 
windowed Fourier transform are not complex sinusoids but 

15 rather are windowed complex sinusoids. Dennis Gabor used 
a real Gaussian function in conjunction with sinusoids of 
varying frequencies to produce a complete set of basis 
functions (known as Gabor functions) with which to analyze 
a signal. For a locality given by the effective width of 

20 the Gaussian function, the sinusoidal frequency is varied 
such that the entire spectrum is covered. 

The wavelet transform decomposes a signal into a set 
of basis functions that can be nearly local in both 
frequency and time. This is achieved by translating and 

2 5 dilating a function "{^(t) that has spatial and spectral 

locality to form a set of basis functions: 

^y^{s{t'U)) (equ. 3) 

wherein s and u are real numbers and are the variables of 
the transform. The function ^(t) is called the wavelet. 

3 0 The continuous wavelet transform of a signal under 

analysis is defined as follows: 

u) =^/5|*' * is(t-u)) f{t) dt (equ. 4) 

Where f(t) is the time domain signal under analysis. 
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W(s,u) is its wavelet transform, ^ is the wavelet, s is 
the positive dilation factor and u is the scaled 
translation distance. The spatial and spectral locality 
of the wavelet transform is dependent on the character- 
5 istics of the wavelet. 

Because the signal under analysis in the compression 
of digitally sampled images has finite length, the 
discrete counterpart of the continuous wavelet transform 
is used. The wavelet transform performs a multiresolution 

10 decomposition based on a sequence of resolutions often 
referred to as "octaves". The frequencies of consecutive 
octaves vary uniformly on a logarithmic frequency scale. 
This logarithmic scale can be selected so that consecutive 
octaves differ by a factor of two in frequency. The basis 

15 functions are: 

for {j\n)€Z^ (equ. 5) 

where Z is the set of all integers, = {(j/n) : j,n e Z} , 
and ^^fHx) = >/2^ i|r (2^ x) . 

In a sampled system, a resolution r signifies that 

2C the signal under analysis has been sampled at r samples 
per unit length. A multiresolution analysis studies an 
input signal at a number of resolutions, which in the case 
of the present invention is the sequence r = 2^ where 
j e Z. The difference in frequency between consecutive 

25 octaves therefore varies by a factor of two. 

Stephane Mallat formalized the relationship between 
wavelet transforms and multiresolution analysis by first 
defining a multiresolution space sequence {Vj}jg2f where Vj 
is the set of all possible approximated signals at 

3 0 resolution 2^. He then showed that an orthonormal basis 
for Vj can be constructed by {0^ (x-2'jn) <p{x) is called 

the scaling function where for any jeZ, 4)-^' (x) =v/2^<t> (2^x) . 
He then showed that a signal f(x) can be approximated at a 
resolution 2^ by the set of samples: 
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= {y/2^<f.i^i»^^^ (equ. 6) 

where <f»g>^^^J(x)g{x)cbc, where geL^ (R) , 
the set of square integrable functions on R. This is 
equivalent to convolving the signal f (x) with the scaling 
5 function (p^{-x) at a sampling rate of 2^ However, this 
representation is highly redundant because Vj C Vj+i,jeZ. 
It would be more efficient to generate a sequence of 
multiresolution detail signals Oj which represents the 
difference information between successive resolutions 
10 OjeVj = Vj^, where Oj is orthogonal to Vj, Mallat proved that 
there exists a f\inction ^(x) called the wavelet where: 

i|r^"<x) = v^T|r(2^'-?r) (equ. 7) 

such that {^(x-2-^n) is an orthonormal basis of Oj and 
{^(x-2-jn)}, (j,n)€Z^ is an orthonormal basis of . 
15 The detail signal at resolution 2^*^ is represented by the 
set of data values: 

^^={^/F<f,l|r^>}^,^ (equ. 8) 

which is equivalent to convolving the signal f (x) with the 
wavelet ^(-x) at a sampling rate of 2\ 

20 Hence, the original signal f(x) can be completely 

represented by the sets of data values (Sj, (Nj) J< j<-l) , 
where J<0 gives the number of octaves. This 
representation in the form of data values is known as the 
discrete wavelet decomposition. The Sj notation used by 

25 Mallat refers to recursively low pass filter values of the 
original signal. S^, corresponds to the original data 
values D. S.j corresponds to the H data values from the 
low pass filter. N.j corresponds to the G data values from 
the high pass filter. S.j corresponds to the next low pass 

30 filtered values from the previous H sub-band. N.j 

corresponds to the next high pass filtered values from the 
previous H sub-band. 

If the sampling patterns of the discrete windowed 
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Fourier transform and the discrete wavelet transform are 
compared while maintaining the spatial locality of the 
highest frequency sample for both transforms, then the 
efficiency of the discrete wavelet decomposition is 
5 revealed- The window Fourier transform produces a linear 
sampling grid, each data value being a constant spatial 
distance or a constant frequency away from its neighbor. 
The result is a heavy over-sampling of the lower 
frequencies. The wavelet transform, in contrast, samples 

10 each of its octave wide frequency bands at the minimum 

rate such that no redundant information is introduced into 
the discrete wavelet decomposition. The wavelet transform 
is able to achieve highly local spatial sampling at high 
frequencies by the use of octave wide frequency bands. At 

15 low frequencies, spectral locality takes precedence over 
spatial locality. 

Figure 7 illustrates the spatial and spectral 
locality of a sequence of sampled data values. The box 
surrounding a data value represents the spatial and 

2 0 spectral locality of the data value. The regions of 

Figure 7 are presented for explanation purposes. In 
reality there is some overlap and aliasing between 
adjacent data values, the characteristics of which are 
determined by the particular wavelet function used. 
25 Mallat showed the wavelet transform can be computed 

with a pyramid technique, where only two filters are used. 
Using this technique, Sj and Nj are calculated from Sj+„ 
being used as the input for the next octave of 
decomposition. A low pass filter H: 

30 hin) = ^<(J);\(t)°> (equ. 9) 

Mallat showed that Sj can be calculated by convolving from 
Sj+, with H and keeping every other output (i.e. sub- 
sampling by a factor of 2). 

A method for calculating Nj from Sj+i can also be 

3 5 derived. This method involves convolving Sj+i with a high 
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pass filter G and sub-sampling by a factor of 2. The high 
pass filter G is defined by the following coefficients: 

g(n) h(l-n) (equ. 10) 

The relationship between the H and G filters results 
5 in a large saving when the filters are implemented in 
hardware . 

Figures 8 and 9 illustrate that these two filters H 
and G form a complementary pair that split an input signal 
into two half band output signals. Both the high and the 

10 low pass outputs can be sub-sampled by a factor of two 
without corrupting the high frequency information because 
any aliasing introduced by the sub-sampling will be 
corrected in the reconstruction. There are the same 
number of filtered data values as there are original image 

15 data values. 

The particular wavelet which is best in analyzing a 
signal under analysis is heavily dependent on the 
characteristics of the signal under analysis. The closer 
the wavelet resembles the features of the signal, the more 

20 efficient the wavelet representation of the signal will 
be. In addition, reconstruction errors introduced by 
quantization resemble the wavelet. Typically, the amount 
of aliasing varies with spatial support (the number of 
coefficients of the wavelet filters) . Long wavelets can 

25 be constructed such that aliasing between adjacent octave 
bands is minimized. However, the spatial equivalent of 
aliasing, overlap, increases with filter length. 
Conversely, short wavelets have little or no overlap 
spatially but exhibit large amounts of aliasing in the 

3 0 frequency domain. To properly determine the suitability 
of a wavelet for a particular application, these factors 
of size and shape must be considered. 

To apply the wavelet transform to image processing, 
the present invention employs a particular wavelet called 

3 5 the four coefficient Daubechies wavelet. Because the four 
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coefficient Daubechies wavelet has only four coefficients, 
it is very short. This is well-suited for analyzing 
important image features such as object edges. Edges by 
definition are spatially local discontinuities. Edges 
5 often consist of a wide spectral range which, when 
filtered through a high pass filter, give rise to 
relatively larger filtered outputs only when the analysis 
filter coincides with the edge. When the analysis filter 
does not coincide with the edge, relatively smaller 
10 filtered outputs are output by the filter. The shorter 
the analysis filter used, the more finely the spatial 
position of the edge is resolved. Longer filters produce 
more of the relatively larger data values to represent an 
edge. The shortness of the filter also makes the 
15 transform calculation relatively inexpensive to implement 
compared with that of longer filters or image 
transformations such as the Fourier or discrete cosine 
transforms. The four coefficient Daubechies wavelet was 
selected for use only after a careful analysis of both its 
20 spatial and aliasing characteristics. Longer wavelets 
such as the six coefficient Daubechies wavelet could, 
however, also be used if a more complex implementation 
were acceptable. Short filters such as the two 
coefficients Haar wavelet could also be used if the 
25 attendant high levels of noise were acceptable. 

The true coefficients of the four coefficient 
Daubechies wavelet are: 

The low pass four coefficient Daubechies digital 
30 filter is given by: 

hJ^J = aD(x-l) + bD(x) + cD(x+l) - dD{x+2) (equ. 12) 

The high pass four coefficient Daubechies digital 
filter is given by: 
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g|-|J = dD(x-l) + cD{x) - bD(x+l) + aD(x+2) (equ, 13) 

In equations 12 and 13, D{x-1) , D(x) , D(x-hl) and D(x-f2) 
are four consecutive data values. ^[^) true 

perfect reconstruction filters, i.e. the inverse transform 
5 perfectly reconstructs the original data. For example, 
when the filters operate on data values D(l) , D(2), D(3) 
and D(4), outputs H(l) and G(l) are generated • Index x in 
this case would be 2. Due to the presence of the ^ as 
the index for the filters H and G, the values of x can 

10 only be even integers. 

To simplify the computational complexity involved in 
performing the transformation on real data, the 
coefficients of the four coefficient Daubechies filter 
which are non-rational numbers are converted into rational 

15 numbers which can be efficiently implemented in software 
or hardware* Floating point coefficients are not used 
because performing floating point arithmetic is time 
consuming and expensive when implemented in software or 
hardware. 

20 To convert the four Daubechies coefficients for 

implementation, three relationships of the coefficients a, 
b, c and d are important. In order for the H filter to 
have unity gain, the following equation must hold: 

a+b+c-d=l (equ. 14) 

25 In order for the G filter to reject all zero frequency 
components in the input data values, the following 
equation must hold: 

a-b+c+d=0 (equ. 15) 

In order for the resulting H and G filters to be able to 
3 0 generate a decomposition which is perfectly reconstruct- 
ible into the original image data the following equation 
must hold: 
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ac - bd = 0 



PCT/GB94/00677 
(equ. 16) 



True four coefficient Daubechies filters satisfy the above 
three equations 14, 15, and 16. However, when the 
coefficients of the true low and high pass four 
5 coefficient Daubechies filters are converted for 

implementation, at least one of the three relationships 
must be broken. In the preferred embodiment, unity gain 
and the rejection of all zero frequency components are 
maintained. It is the third relationship of equation 16 

10 that is compromised. Perfect reconstruction is 

compromised because the process of compressing image data 
itself inherently introduces some noise due to the tree 
coding and quantization of the present invention. The 
reconstructed data values therefore necessarily involve 

15 noise when a real-world image is compressed and then 

reconstructed. We define filters which satisfy equations 
14, and 15 and approximately satisfy equation 16, 
quasi-perfect reconstruction filters. 

Table 2 illustrates a process of converting the 

20 coefficients a, b, c and d for implementation. 

a = -^^^ = .3415(32) = 10.92 ^ ^ 
8 32 

b = := .5915(32) = 18.92 

8 32 

c = -^"/^ = .1585 (32) = 5.072 = 

B 32 

25 d = "^^^ ^ .0915(32) = 2.928 « ^ 

8 32 

Table 2 

The true four coefficient Daubechies filter coefficients 
are listed in the left hand column of Table 2. In the 
next column to the right, the true coefficients are shown 
30 rounded to four places beyond the decimal point. The 
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rounded coefficients are scaled by a factor of 32 to 
achieve the values in the next column to the right. From 
each value in the third column, an integer value is 
selected. Which integers are selected has a dramatic 
5 effect on the complexity of the software or hardware which 
compresses the image data. The selected integers are 
divided by 32 so that the scaling by 32 shown in the 
second column does not change the values of the resulting 
converted coefficients. 
10 In selecting the integers for the fourth column, the 

relationship of the three equations 14, 15 and 16 are 
observed. In the case of a = 11/32, b = 19/32, c = 5/32 
and d = 3/32, the relationships a+b+c-d=l and a-b+c+d=o 
both are maintained. Because the converted coefficients 
15 in the rightmost column of Table 2 are quite close to the 
true coefficient values in the leftmost column, the 
resulting four coefficient filters based on coefficients 
a, b, c and d allow near perfect reconstruction. On a 
typical 640 by 480 image, the error between the original 
20 and reconstructed data values after forward and. then 

inverse transformation has been experimentally verified to 
exceed 50 dB. 

The resulting high pass four coefficient quasi- 
Daubechies filter is; 

25 H(|) = |iD(x-l) + 1|D(X) + ^D(x+1) - ^D(x+2)(equ. 17) 

The resulting low pass four coefficient quasi-Daubechies 
filter is: 

G(|) = ^D(x-l) + ^D(x) - ^D{x+1) + ||D(x+2) (equ. 18) 

Because the high and low pass four coefficient quasi- 
3 0 Daubechies filters satisfy equations 14 and 15 and 

approximately satisfy equation 16, the high and low pass 
four coefficient quasi-Daubechies filters are quasi- 
perfect reconstruction filters. 
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Note that the particular converted coefficients of 
the guasi-Daubechies filters of equations 17 and 18 result 
in significant computational simplicity when 
implementation is either software and/or hardware, 
5 Multiplications and divisions by factors of two such as 
multiplications and divisions by 32 are relatively simple 
to perform. In either hardware or software, a 
multiplication by 2 or a division by 2 can be realized by 
a shift. Because the data values being operated on by the 

10 digital filter already exist in storage when the filter is 
implemented in a typical system, the shifting of this data 
^fter the data has been read from storage requires little 
additional computational overhead. Similarly, changing 
the sign of a quantity involves little additional 

15 overhead. In contrast, multiplication and division by 
numbers that are not a power of 2 require significant 
overhead to implement in both software and hardware. The 
selection of the coefficients in equations 17 and 18 
allows H(x) and G(x) to be calculated with only additions 

20 and shifts. In other words, all multiplications and 

divisions are performed without multiplying or dividing by 
a number which is not a power of 2. Due to the digital 
filter sequencing through the data values, pipelining 
techniques can also be employed to reduce the number of 

25 adds further by using the sums or differences computed 
when the filters were operating on prior data values. 

Moreover, the magnitudes of the inverse transform 
filter coefficients are the same as those of the transform 
filter itself. As described further below, only the order 

3 0 and signs of the coefficients are changed. This reduces 
the effective number of multiplications which must be 
performed by a factor of two when the same hardware or 
software implementation is to be used for both the forward 
and inverse transform. The fact that the signal being 

3 5 analyzed is being sub-sampled reduces the number of 
additions by a factor of two because summations are 
required only on the reading of every other sample. The 
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effective number of filters is therefore only one to both 
transform the data into the decomposition and to inverse 
transform the decomposition back into the image data. 

IMAGE COMPRESSION AND DECOMPRESSION USING THE 
5 QUASI-PERFECT RECONSTRUCTION TRANSFORM 

Color images can be decomposed by treating each Red- 
Green-Blue (or more usually each Luminance-Chrominance- 
Chrominance channel) as a separate image. In the case of 
Luminance-Chrominance-Chrominance (YUV or YIQ) images the 

10 chrominance components may already have been sub-sampled. 
It may be desirable therefore, to transform the 
chrominance channels through a different number of octaves 
than the luminance channel. The eye is less sensitive to 
chrominance at high spatial .frequency and therefore these 

15 channels can be sub-sampled without loss of perceived 
quality in the output image. Typically these chrominance 
channels are sub-sampled by a factor of two in each 
dimension so that they together take only 50 percent of 
the bandwidth of the luminance channel. When implementing 

20 an image compression technique, the chrominance channels 
are usually treated the same way as the luminance channel. 
The compression technique is applied to the three channels 
independently. This approach is reasonable except in the 
special cases where very high compression ratios and very 

25 high quality output are required. To squeeze the last 
remaining bits from a compression technique or to achieve 
more exacting quality criteria, knowledge of how the 
chrominance rather than luminance values are perceived by 
the human visual system can be applied to improve the 

3 0 performance of the compression technique by better 
matching it with the human visual system. 

Figure 10 is an illustration of a two dimensional 
matrix of data values. There are rows of data values 
extending in the horizontal dimension and there are 

35 columns of data values extending in the vertical 

dimension. Each of the data values may, for example, be 
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an 8-bit binary number of image pixel information such as 
the luminance value of a pixel. The data values of Figure 
10 represent an image of a black box 100 on a white 
background 101. 

5 To transform the data values of the image of Figure 

10 in accordance with one aspect of the present invention, 
a high pass four coefficient quasi-Daubechies digital 
filter is run across the data values horizontally, row by 
row, to result in a block 102 of high pass output values G 

10 shown in Figure 11 • The width of the block 102 of high 
pass output values in Figure 11 is half the width of the 
original matrix of data values in Figure 10 because the 
high pass four coefficient quasi-Daubechies digital filter 
is moved across the rows of the data values by twos. 

15 Because only one additional digital filter output is 

generated for each additional two data values processed by 
the digital filter, the data values of Figxire 10 are said 
to have been sub-sampled by a factor of two. 

Figure 12 illustrates the sxib-sampling performed by 

20 the high pass digital filter. High pass output Gj is 

generated by the high pass digital filter from data values 
Dj, Dj, D3 and D4. The next high pass output generated, 
output G2, is generated by the high pass digital filter 
from data values D3, D4, D5 and D^. The high pass digital 

25 filter therefore moves two data values to the right for 
each additional high pass output generated. 

A low pass four coefficient quasi-Daubechies digital 
filter is also run across the data values horizontally, 
row by row, to generate H block 103 of the low pass 

30 outputs shown in Figure 11. This block 103 is generated 
by sub-sampling the data values of Figure 10 in the same 
way the block 102 was generated. The H and G notation for 
the low and high pass filter outputs respectively is used 
as opposed to the Sj and Oj notation used by Mallat to 

35 simplify the description of the two-dimensional wavelet 
transform. 

Figure 13 illustrates the sub-sampling of the low 
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pass digital filter. Low pass output is generated by 
the low pass digital filter from data values D^, D2, D3 and 
D4. The next low pass output generated, output H2, is 
generated by the low pass digital filter from data values 
5 D3, D4, D5 and D^- The low pass digital filter therefore 
moves two data values to the right for each additional low 
pass output generated. 

After the high and low pass four coefficient quasi- 
Daubechies digital filters have generated blocks 102 and 

10 103, the high and low pass four coefficient quasi- 
Daubechies digital filters are run down the columns of 
blocks 102 and 103. The values in blocks 102 and 103 are 
therefore sub-sampled again. The high pass four 
coefficient quasi-Daubechies digital filter generates 

15 blocks 104 and 105. The low pass four coefficient quasi- 
Daubechies digital filter generates blocks 106 and 107. 
The resulting four blocks 104-107 are shown in Figure 14. 
Block 106 is the low frequency component of the original 
image data. Blocks 107, 104 and 105 comprise the high 

20 frequency component of the original image data. Block 106 
is denoted block HH. Block 107 is denoted block GH. 
Block 104 is denoted block HG. Block 105 is denoted block 
GG. 

This process of running the high and low pass four 
25 coefficient quasi-Daubechies digital filters across data 
values both horizontally and vertically to decompose data 
values into high and low frequency components is then 
repeated using the data values of the HH block 106 as 
input data values. The result is shown in Figure 15. 
3 0 Block 108 is the low frequency component and is denoted 
block HHHH. Blocks 109, 110 and 111 comprise octave 1 of 
the high frequency component and are denoted HHHG, HHGH, 
HHGG, respectively. Blocks HG, GH and GG comprise octave 
0 of the high frequency component. 
35 Although this recursive decomposition process is only 

repeated twice to produce high pass component octaves 0 
and 1 in the example illustrated in connection with 
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Figures 10-15, other numbers of recursive decomposition 
steps are possible. Recursively decomposing the original 
data values into octaves 0, 1, 2 and 3 has been found to 
result in satisfactory results for most still image data 
5 and recursively decomposing the original data into octaves 
0, 1, and 2 has been found to result in satisfactory 
results for most video image data. 

Moreover, the horizontal and subsequent vertical 
operation of the high and low pass filters can also be 

10 reversed. The horizontal and subsequent vertical sequence 
is explained in connection with this example merely for 
instructional purposes. The filters can be moved in the 
vertical direction and then in the horizontal direction. 
Alternatively, other sequences and dimensions of moving 

15 the digital filters through the data values to be 
processed is possible. 

It is also to be understood that if the original 
image data values are initially arrayed in a two 
dimensional block as shown in Figtire 10, then the 

20 processing of the original image data values by the high 
and low pass filters would not necessarily result in the 
HH values being located all in an upper right hand 
quadrant as is shown in Figure 14. To the contrary, 
depending on where the generated HH values are written, 

2 5 the HH data values can be spread throughout a block. The 

locations of the HH values are, however, determinable. 
The HH values are merely illustrated in Figure 14 as being 
located all in the upper lefthand quadrant for ease of 
illustration and explanation. 

3 0 Figure 16 is an illustration showing one possible 

twelve-by-twelve organization of original image data 
values in a two dimensional array. Figure 16 corresponds 
with Figure 10. The location in the array of each data 
value is determined by a row number and column number. A 
3 5 row number and column number of a data value may, for 

example, correspond with a row address and column address 
in an addressed storage medium. This addressed storage 
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medium may, for example, be a semiconductor memory, a 
magnetic storage medium, or an optical storage medium. 
The row and column may, for example, also correspond with 
a pixel location including a location of a pixel on a 
5 cathode-ray tube or on a flat panel display. 

Figure 17 is an illustration showing the state of the 
two dimensional array after a one octave decomposition. 
The HH low frequency components are dispersed throughout 
the two dimensional array as are the HG values, the GH 

10 values, and the GG values. The subscripts attached to the 
various data values in Figure 17 denote the row and column 
location of the particular data value as represented in 
the arrangement illustrated in Figure 14. HHqo, HHqi, HHqz, 
HHqj, HHo^ and HHqs, for example, are six data values which 

15 correspond with the top row of data values in KK block 106 
of Figure 14. HHoo/ HHio, HH^o, HH30, HH40 and HH50, for 
example, are six data values which correspond with the 
leftmost column of data values in HH block 106 of Figure 
14. 

20 When the high and the low pass forward transform 

digital filters operate on the four data values Dqi, D02, 
and Dw of Figure 16, the output of the low pass forward 
transform digital filter is written to location row 0 
column 2 and the output of the high pass forward transform 

25 digital filter is written to location row 0 column 3. 
Next, the high and low pass forward transform digital 
filters are moved two locations to the right to operate on 
the data values Dqj, Dew, D05 and D06. The outputs of the low 
and high pass forward transform digital filters are 

30 written to locations row 0 column 4 and row 0 column 5, 
respectively. Accordingly, the outputs of the low and 
high frequency forward transform digital filters are 
output from the filters to form an interleaved sequence of 
low and high frequency component data values which 

3 5 overwrite the rows of data values in the two dimensional 
array. 

Similarly, when the low and high pass forward 
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transform digital filters operate' on the four data values 
at locations column 0, rows 1 through 4, the output of the 
low pass forward transform digital filter is written to 
location column 0 row 2- The output of the high pass 
5 forward transform digital filter is written to location 
column 0 row 3. Next the low and high pass forward 
transform digital filters are moved two locations downward 
to operate on the data values at locations colximn 0, rows 
3 through 6. The outputs of the low and high pass forward 

10 transform digital filters are written to locations column 
0 row 4 and column 0 row 5, respectively • Again, the 
outputs of the low and high pass forward transform digital 
filters are output from the filters in an interleaved 
fashion to overwrite the columns of the two dimensional 

15 array. 

Figure 18 is an illustration showing the state of the 
two dimensional array after a second octave decomposition. 
The HHHH low frequency components corresponding which 
block 108 of Figure 15 as well as the octave 1 high 

20 frequency components HHGH, HHHG and HHGG are dispersed 
throughout the two dimensional array. When the HH values 
HHoi, HHo2r HHo3 and HHo* of Figure 17 are processed by the 
low and high pass forward transform digital filters, the 
outputs are written to locations row 0 column 4 and row 0 

25 column 6, respectively. Similarly, when the values at 
locations column 0, rows 2, 4, 6 and 8 are processed by 
the low and high pass forward transform digital filters, 
the results are written to locations column 0 row 4 and 
column 0 row 6, respectively. The data values in Figure 

30 18 are referred to as transformed data values. The 
transformed data values are said to comprise the 
decomposition of the original image values. 

This method of reading data values, transforming the 
data values, and writing back the output of the filters is 

35 easily expanded to a two dimensional array of a very large 
size. Only a relatively small number of locations is 
shown in the two dimensional array of Figures 10-18 for 
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ease of explanation and clarity of illustration. 

The transformed data values are reconverted back into 
image data values substantially equal to the original 
image data by carrying out a reverse process. This 
5 reverse process is called the inverse transform. Due to 
the interleaved nature of the decomposition data in Figure 
18, the two digital filters used to perform the inverse 
transform are called interleaved inverse transform digital 
filters. Odd data values are determined by an odd 

10 interleaved inverse digital filter O. Even data values 
are determined by the even interleaved inverse transform 
digital filter E. 

The odd and even interleaved inverse digital filters 
can be determined from the low and high pass forward 

15 transform digital filters used in the forward transform 
because the coefficients of the odd interleaved inverse 
transform digital filters are related to the coefficients 
of the low and high pass forward tremsform filters. To 
determine the coefficients of the odd and even interleaved 

20 inverse transform digital filters, the coefficients of the 
low and high pass forward transform digital filters are 
reversed. Where the first, second, third and fourth 
coefficients of the low pass forward transform digital 
filter H of equation 17 are denoted a, b, c and -d, the 

25 first, second, third and fourth coefficients of a reversed 
filter H* are denoted -d, c, b and a. Similarly, where 
the first, second, third and fourth coefficients of the 
high pass forward transform digital filter G of equation 
18 are denoted d, c, -b and a, the first, second, third 

3 0 and fourth coefficients of a reverse filter G* are denoted 
a, -b, c and d. 

The first through the fourth coefficients of the even 
interleaved inverse transform digital filter E are the 
first coefficient of H*, the first coefficient of G*, the 

35 third coefficient of H*, and the third coefficient of G*. 
The coefficients of the even interleaved inverse transform 
digital filter E therefore are -d, a, b and c. In the 
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case of the low and high pass four coefficient quasi- 
Daubechies filters used in the transform where a=ii, b=il, 
c=^ and d=^, the even interleaved inverse transform 
digital filter is: 



D{2x) 

2 =-^H(x-l) + liG{x-l) + l|H(x) + ^G{x) (equ. 19) 



where H(x-l) , G(x-l), H(x) and G(x) are transformed data 
values of a decomposition to be inverse transformed. 

The first through the fourth coefficients of the odd 
interleaved inverse transform digital filter O are the 

10 second coefficient of H*, the second coefficient of G*, 
the fourth coefficient of H*, and the fourth coefficient 
of G*. The coefficients of the odd interleaved inverse 
transform digital filter O therefore are c, -b, a and d. 
In the case of the low and high pass four coefficient 

15 quasi-Daubechies filters used in the transform where a=l|, 

^""H' ^"-h the odd interleaved inverse transfora 

digital filter is: 

D{2x-l) 

2 = ^H(x-l) - i|G(x-l) + liH(x) + ^GCX) (equ. 20) 

where H(x-l) , G(x-l), H(x) and G(x) are data values of a 

20 decomposition to be inverse transformed. 

To inverse transform the transformed data values of 
Figure 18 into the data values of Figure 17, the HHHG, 
HHGG, HHGH and data values are inverse transformed with 
the HHHH data values to create the HH data values of 

25 Figure 17. This process corresponds with the inverse 
transformation of HHHG block 109, HHGH block lio, HHGG 
block ill, and HHHH block 108 of Figure 15 back into the 
HH data values of block 106 of Figure 14. The HG, GH and 
GG data values of Figure 18 are therefore not processed by 

3 0 the odd and even interleaved inverse transform digital 
filters in this step of the inverse transform. 
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In Figure 18, the odd interleaved inverse transform 
digital filter processes the values in locations column 0, 
rows 0, 2, 4 and 6 to generate the odd data value at 
location column 0 row 2. The even interleaved inverse 
5 transform digital filter data also processes the values in 
the same locations to generate the even data value at 
location column 0 row 4. The odd and even interleaved 
inverse transform digital filters then process the values 
in locations column 0, rows 4, 6, 8 and A to generate the 
10 values at locations column 0 row 6 and column 0 row 8, 
respectively. Each of the six columns 0, 2, 6, 4, 8, and 
A of the values of Figure 18 are processed by the odd and 
even interleaved inverse transform digital filters in 
accordance with this process. 
15 The various locations are then processed again by the 

odd and even interleaved inverse transform digital 
filters, this time in the horizontal direction. The odd 
and even interleaved inverse transform digital filters 
process the values at locations row 0 columns 0, 2, 4 and 
20 6 to generate the values at locations row 0 column 2 and 
row 0 column 4, respectively. The odd and even 
interleaved inverse transform digital digital filters 
process the values at locations row 0 columns 4, 6, 8 and 
A to generate the values at locations row 0 column 6 and 
25 row 0 column 8, respectively. Each of the six rows 0, 2, 
4 and 8 and of values are processed by the even and odd 
interleaved inverse transform digital filters in 
accordance with this process. The result is the 
reconstruction shown in Figure 17. 
3 0 The even and odd interleaved inverse transform 

digital filters then process the values shown in Figure 17 
into the data values shown in Figure 16. This inverse 
transformation corresponds with the transformation of the 
HH block 106, the HG bock 104, the GH block 107 and the GG 
3 5 block 105 of Figure 14 into the single block of data value 
of Figure 10. The resulting reconstructed data values of 
Figure 16 are substantially equal to the original image 
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data values . 

Note, however, that in the forward transform of the 
data values of Figure 16 into the data values of Figure 17 
that the low and high pass four coefficient guasi- 
5 Daubechies digital filters cannot generate all the data 
values of Figure 17 due to the digital filters reguiring 
data values which are not in the twelve by twelve matrix 
of data values of Figure 16. These additional data values 
are said to be beyond the "boundary" of the data values to 
10 be transformed. 

Figure 19 illustrates the high pass four coefficient 
guasi-Daubechies digital filter operating over the 
boundary to generate the Gq data value. In order to 
generate the Gq data value in the same fashion that the 
15 other high frequency g data values are generated, the high 
pass digital filter would require data values D.j, Do, D, 
and Dj as inputs. Data value D.,, however, does not exist. 
Similarly, Figure 20 illustrates the low pass four 
coefficient quasi-Daubechies digital filter operating over 
20 the boundary to generate the Ho data value. In order to 
generate the Ho data value in the same fashion that the 
other low frequency H data values are generated, the low 
pass digital filter would require data values D.i, Do, D, 
and Dj as inputs. Data value D.,, however, does not exist. 
25 The present invention solves this boundary problem by 

using additional quasi-Daubechies digital filters to 
generate the data values adjacent the boundary that would 
otherwise require the use of data values outside the 
boundary. There is a high pass "start" quasi-Daubechies 
30 forward transform digital filter G. which is used to 
generate the first high pass output Gq. There is a low 
pass "start" quasi-Daubechies forward transform digital 
filter H, which is used to generate the first low pass 
output Ho- These start quasi-Daubechies forward transform 
3 5 digital filters are three coefficient filters rather than 
four coefficient filters and therefore require only three 
data values in order to generate an output. This allows 
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the start quasi -Daubechies forward transform digital 
filters to operate at the boundary and to generate the 
first forward transform data values without extending over 
the boundary. 

5 Figure 21 illustrates the low and high pass start 

quasi-Daubechies forward transform digital filters 
operating at the starting boundary of image data values Dq 
through Db- The three coefficient low and high pass start 
quasi-Daubechies forward transform digital filters operate 
10 on data values Do, Di and Dj to generate outputs Hq and Gq, 
respectively. H,, H2, H3 and H*, on the other hand, are 
generated by the low pass four coefficient quasi- 
Daubechies forward transform digital filter and G,, G2, G3 
and G4 are generated by the high pass four coefficient 

15 quasi-Daubechies forward transform digital filter. 

A similar boundary problem is encountered at the end 
of the data values such as at the end of the data values 
of a row or a column of a two-dimensional array. If the 
low and high pass four coefficient quasi-Daubechies 

20 filters G and H are used at the boundary in the same 
fashion that they are in the middle of the data values, 
then the four coefficient quasi-Daubechies forward 
transform digital filters would have to extend over the 
end boundary to generate the last low and high pass 

25 outputs, respectively. 

The present invention solves this boundary problem by 
using additional quasi-Daubechies forward transform 
digital filters in order to generate the transformed data 
values adjacent the end boundary that would otherwise 

30 require the use of data outside the boundary. There is a 
low pass "end" quasi-Daubechies forward transform digital 
filter He which is used to generate the last low pass 
output. There is a high pass "end" quasi-Daubechies 
forward transform digital filter G^ which is used to 

3 5 generate the last high pass output. These two end quasi- 
Daubechies forward transform digital filters are three 
coefficient filters rather than four coefficient filters 
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and therefore require only three data values in order to 
generate an output. This allows the end quasi-Daubechies 
forward transform digital filters to operate at the 
boundary and to generate the last transform data values 
5 without extending over the boundary. 

Figure 21 illustrates two low and high pass end 
quasi-Daubechies forward transform digital filters 
operating at the end boundary of the image data. These 
three coefficient low and high pass end quasi-Daubechies 
10 forward transform digital filters operate on data values 
D9, Da and Db to generate outputs H5 and G5, respectively. 
This process of using the appropriate start or end low or 
high pass filter is used in performing the transformation 
at the beginning and at the end of each row and column of 
15 the data values to be transformed. 

The form of the low pass start quasi-Daubechies 
forward transform digital filter H, is determined by 
selecting a value of a hypothetical data value D., which 
would be outside the boundary and then determining the 
20 value of the four coefficient low pass quasi-Daubechies 
forward transform filter if that foxir coefficient forward 
transform filter were to extend beyond the boundary to the 
hypothetical data value in such a way as would be 
necessary to generate the first low pass output Hq. This 
25 hypothetical data value D.j outside the boundary can be 
chosen to have one of multiple different values. In some 
embodiments, the hypothetical data value D.i has a value 
equal to the data value Dq at the boundary. In some 
embodiments, the hypothetical data value D.i is set to zero 
30 regardless of the data value Dq. The three coefficient low 
pass start quasi-Daubechies forward transform digital 
filter H, therefore has the form: 

Ho = Kl + bDo + CD, - dD2 (equ. 21) 



where Kl is equal to the product aD.i, where Dq is the first 
35 data value at the start boundary at the start of a 
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sequence of data values, and where a, b, c and d are the 
four coefficients of the four coefficient low pass quasi- 
Daubechies forward transform digital filter. If, for 
example, hypothetical data value D., is chosen to be equal 
5 to the data value Dq adjacent but within the boundary, then 
Kl=aDo where a = 11/32 and Dq is the data value adjacent 
the boundary, equation 21 then becomes: 

Ho = (a+b)Do + cDi - dD, (equ. 22) 

The form of the high pass start quasi -Daubechies 
10 forward transform digital filter G. is determined by the 
same process using the same hypothetical data value D.,. 
The high pass start quasi-Daubechies forward transform 
digital filter G, therefore has the form: 

Go = K2 + cDo - bDi + aDj (equ. 23) 

15 where K2 is equal to the product dD.j, where Dq is the first 
data value at the boundary at the start of a sequence of 
data values, and where a, b, c and d are the four 
coefficients of the four coefficient high pass quasi- 
Daubechies forward transform digital filter. If 

2 0 hypothetical data value D.j is chosen to be equal to Dq, 
then equation 23 becomes: 



Go = (d + c)Do - bD, + aDj (equ. 24) 

The form of the low pass end quasi-Daubechies forward 
transform digital filter is determined in a similar way 

25 to the way the low pass start quasi-Daubechies forward 

transform digital filter is determined. A value of a data 
value Dc is selected which would be outside the boundary. 
The value of the four coefficient low pass quasi- 
Daubechies forward transform digital filter is then 

3 0 determined as if that four coefficient filter were to 

extend beyond the boundary to data value Dc in such a way 
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as to generate the last low pass output H5. The three 
coefficient low pass end quasi-Daubechies forward 
transform digital filter therefore has the form: 

H5 = aDj + bD^ + cDb - K3 (equ. 25) 

5 where K3 is equal to the product dDc, where Dg is the last 
data value of a sequence of data values to be transformed, 
and where a, b, c and d are the four coefficients of the 
four coefficient low pass quasi-Daubechies filter. Db is 
the last data value in the particular sequence of data 
10 values of this example and is adjacent the end boundary. 
In the case where the hypothetical data value D, is chosen 
to be equal to the data value Db adjacent but within the 
end boundary, then K3=dDB and equation 25 becomes: 

H5 = aD9 + bD^ + (c-d)DB (equ. 26) 

15 The form of the high pass end quasi-Daxibechies 

forward transform digital filter is determined by the 
same process using the same data value Dc* The three 
coefficient high pass end quasi-Daubechies forward 
transform digital filter therefore has the form: 

20 G5 = dD9 + cDa - bDB + K4 (equ. 27) 

where K4 is equal to the product aDc, where Db is the last 
data value in this particular sequence of data values to 
be transformed, and where a, b, c and d are the four 
coefficients of the four coefficient high pass quasi- 
25 Daubechies forward transform digital filter. Dg is 
adjacent the end boundary. If hypothetical data value 
is chosen to be equal to Dq, then equation 27 becomes: 

G5 = dD, + cD^ + (-b-fa)DB (equ. 28) 

It is to be understood that the specific low and high 
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pass end quasi-Daubechies forward transform digital 
filters are given above for the case of data values Do 
through of Figure 21 and are presented merely to 
illustrate one way in which the start and end digital 
5 filters may be determined • In the event quasi-Daubechies 
filters are not used for the low and high pass forward 
transform digital filters, the same process of selecting a 
hypothetical data value or values outside the boundary and 
then determining the value of a filter as if the filter 

10 were to extend beyond the boundary can be used. In some 
embodiments, multiple hypothetical data values may be 
selected which would all be required by the digital 
filters operating on the inside area of the data values in 
order to produce an output at the boundary. This boundary 

15 technique is therefore extendable to various types of 
digital filters and to digital filters having numbers of 
coefficients other than four. 

As revealed by Figure 22, not only does the forward 
transformation of data values at the boundary involve a 

20 boundary problem, but the inverse transformation of the 
transformed data values back into original image data 
values also involves a boundary problem. In the present 
example where four coefficient quasi-Daubechies filters 
are used to forward transform non-boundary data values, 

25 the inverse transform involves an odd inverse transform 
digital filter as well as an even inverse transform 
digital filter. Each of the odd and even filters has four 
coefficients. The even and odd reconstruction filters 
alternatingly generate a sequence of inverse transformed 

30 data values. 

In Figure 22, the data values to be transformed are 
denoted Hq, Gq ... H4, G4, H5, G5. Where the forward 
transform processes the rows first and then the columns, 
the inverse transform processes the columns first and then 

3 5 the rows. Figure 22 therefore shows a column of 

transferred data values being processed in a first step of 
the inverse transform. Both the forward and the inverse 
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transforms in the described example, however, process the 
columns in a dovmward direction and process the rows in a 
left-right direction. 

In Figure 22, the inverse transformed data values 
5 reconstructed by the inverse transform digital filters are 
denoted Dq, D,, Dj, Dj . . . Dg. The odd inverse transform 
digital filter outputs are shown on the left and the even 
inverse transform digital filter outputs are shown on the 
right . 

10 At the beginning of the sequence of data values H^, 

Go, H,, G, ... H5 and Gj to be inverse transformed, the four 
coefficient odd and even inverse transform digital filters 
determine the values of reconstructed data values D, and Dj 
using values Hq, Gq, Hi and G,, respectively. Reconstructed 

15 data value Do, however, cannot be reconstructed from the 
four coefficient even inverse transform digital filter 
without the foiar coefficient even inverse transform 
digital filter extending beyond the boundary. If the four 
coefficient even inverse transform filter were to be 

20 shifted two data values upward so that it could generate 
data value Dq, then the even four coefficient inverse 
transform digital filter would require two additional data 
values to be transformed, data values G., and H.,. Ho is, 
however, the first data value within the boundary and is 

25 located adjacent the boundary. 

To avoid the even four coefficient inverse transform 
digital filter extending beyond the boundary, a two 
coefficient inverse transform digital filter is used: 

Do = 4[(b-a)Ho + (c-d)Go] (equ. 29) 

30 in the case where Kl = aDoand K2 = dDo- Dq is the first 
data value and Hq is the data value to be inverse 
transformed adjacent the start boundary. This even start 
inverse transform digital filter has the form of the four 
coefficient even inverse transform digital filter except 

3 5 that the G., data value outside the boundary is chosen to 
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be equal to Hq, and the H.j data value outside the boundary 
is chosen to be equal to Go- The even start invere 
transform digital filter therefore determines Dq as a 
function of only Hq and Gq rather than as a function of H.j, 
5 G_i , Hq and Gq • 

Similarly, a two coefficient odd end inverse 
transform digital filter is used to avoid the four 
coefficient odd inverse transform digital filter from 
extending beyond the end boundary at the other boundary of 
10 a sequence of data values to be inverse transformed. The 
two coefficient odd end inverse transform digital filter 
used is: 

Db = 4C(c+d)H5 - (a+b) G5] (equ. 30) 

in the case where K4 = aDg and K3 = dDs* is the data 

15 value to be determined and G5 is the data value to be 
inverse transformed adjacent the end boundary. This odd 
end inverse transform digital filter has the form of the 
four coefficient odd inverse transform digital filter 
except that the data value outside the boundary is 
20 chosen to be equal to G5 and the data value outside the 
boundary is chosen to be equal to H5. The odd end inverse 
transform digital filter therefore determines Dg as a 
function of only H5 and G5 rather than as a function of H5, 
G5, Hfi and G5. 

25 It is to be understood that the particular even start 

and odd end inverse transform digital filters used in this 
embodiment are presented for illustrative purposes only. 
Where there is a different number of data values to be 
inverse transformed in a sequence of data values, an even 

30 end inverse transform digital filter may be used at the 
boundary rather than the odd end inverse transform digital 
filter. The even end inverse transform digital filter is 
an even inverse transform digital filter modified in 
accordance with the above process to have fewer 

35 coefficients than the even inverse transform digital 
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filter operating on the inner data values. Where filters 
other than guasi-Daubechies inverse transform digital 
filters are used, start and end inverse transform digital 
filters can be generated from the actual even and odd 
5 inverse transform digital filters used to inverse 
transform data values which are not adjacent to a 
boundary. In the inverse transform, the start inverse 
transform digital filter processes the start of the 
transformed data values at the start boundary, then the 

10 four coefficient inverse transform digital filters process 
the non-boundary transformed data values, and then the end 
inverse transform digital filter processes the end of the 
transformed data values. 

The true Daubechies filter coefficients a, b, c and d 

15 fulfil some simple relationships which show that the 
inverse transform digital filters correctly reconstruct 
non-boundary original image data values. 

a+c = |, b-d = A, c+d = 1, b-a = 1 (equ. 31) 

and the second order equations: 

20 ac-bd = 0, a^+bVc^+d^ = 1 (equ. 32) 

Take two consecutive H,G pairs: 

(equ. 33) 
(equ. 34) 
(equ. 35) 
(equ. 36) 

Multiplying Equations 3 3 to 3 6 using the inverse transform 
digital filters gives: 



" aDCx-l)+bD(x)+cD(x+l)-dD(x+2) 
^("f) ^ dD(x-l)+cD(x)-bD(x+l)+aD(x+2) 
h(-|*iJ = aD(x+l)+bD(x+2)+cD(x+3)-dD(x+4) 
25 ^(-f*^) = dD(x+l)+cD(x+2)-bD(x+3)+aD(x+4) 
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ch|-|| = acD(x-l)+bcD(x)+c2D(x+l)-cdD{x+2) (equ. 37) 

-bG(-|| = -bdD(x-l)-bcD(x)+bb(x+l)-abD(x+2) (equ. 38) 

aH|^+lJ = a^D(x+l)+abD(x+2)+acD(x+3)-adD(x+4) (equ. 39) 

'^^("f*"'") " 'i^D(x+l)+cdD(x+2)-bdD(x+3)+adD(x+4) (equ. 40) 

5 -dH|-^J = -adD(x-l)-bdD(x)-cdD(x+l)+d2D(x+2) (equ. 41) 

^^(l) '° adD(x-l)+acD(x)-abD(x+l)+a2D(x+2) (equ. 42) 

bH|-|+l| = abD(x+l)+b2D(x+2)+bcD(x+3)-bdD{x+4) (equ. 43) 

cG^-^+lj = cdD(x+l)+c2D(x+2)-bcD(x+3)+acD(x+4) (equ. 44) 
Summing equations 37-40 and 41-44 yields: 

xo =H(|) - ba(|) . aH(|.l) . = 

(ac-bd)D(x-l) + (aW+c2+d2)D(x+l) + (ac-bd)D(x+3) = D(x+l) /2 

(equ. 45) 



(ac-bd) D (X) + (a^+b^+c^+d^) D (x+2 ) + (ac-1 



-bd)D(x+4) = D(x+2)/2 

(equ. 46) 

Using the coefficients of the four coefficient true 
Daubechies filter, the relationships of equations 31 and 
32 hold. Equations 45 and 46 therefore show that with a 
one bit shift at the output, the original sequence of data 

2 0 values is reconstructed. 

Similarly, that the even start reconstruction filter 
of equation 29 and the odd end reconstruction filter of 
equation 3 0 correctly reconstruct the original image data 
adjacent the boundaries is shown as follows. 

25 For the even start filter, with the choice of Kl = aDg 

and K2 = dDo in equations 29 and 30, we have: 
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Ho = (a+b)Do + CD, - dD^ (equ. 47) 

Go = (c+d)Do - bDi + aD2 (equ. 48) 

so 

bHo = b(a+b)Do + cbDj - dbDj (equ. 49) 

5 cGq = c(c+d)Do - cbDi + acDz (equ. 50) 

aHo = a(a+b)Do + acDi - adDj (equ. 51) 

dGo = d(c+d)Do - dbDi + adDj (equ. 51 •) 
and hence: from equation 29: 

bHo + cGo - aHo - dGo = (b^-a^+c'-d^) Do = (equ. 52) 

10 For the odd end filter, with the choice of K3 = dDg 

and K4 - aDg, we have: 

H5 = aD, + bD^ + (c-d)DB (equ. 53) 

Gj = dD, + cDa + (a-b)DB (equ. 54) 

CH5 = acD, + bcD^ + c(c-d)DB (equ. 55) 

15 -bGs = -bdD, - bcD^ - b(a-b)DB (equ. 56) 

dHj = daD, + bdD^ + d(c-d)DB (equ. 57) 

-aG5 = -adD, - caD^ - a(a-b)DB (equ. 58) 
and hence from equation 30: 

(c+d)H5 - (a+b)G5 = (c^-d^+b^-a^)DB = ^ (equ. 59) 
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This reveals that the start and end boundary inverse 
transform digital filters can reconstruct the boundary 
data values of the original image when low pass and high 
pass start and end digital filters are used in the forward 
5 transform. 

TREE ENCODING AND DECODING 
As described above, performing the forward quasi- 
perfect inverse transform does not reduce the niimber of 
data values carrying the image information. Accordingly, 

10 the decomposed data values are encoded such that not all 
of the data values need be stored or transmitted. The 
present invention takes advantage of characteristics of 
the Human Visual System to encode more visually important 
information with a relatively larger number of bits while 

IS encoding less visually important information with a 
relatively smaller number of bits. 

By applying the forward quasi-perfect inverse 
transform to a two-dimensional array of image data values, 
a number of sub-band images of varying dimensions and 

20 spectral contents is obtained. If traditional sub-band 
coding were used, then the sub-band images would be 
encoded separately without reference to each other except 
perhaps for a weighting factor for each band. This 
traditional sub-band encoding method is the most readily- 

25 recognized encoding method because only the spectral 
response is accurately localized in each band. 

In accordance with the present invention, however, a 
finite support wavelet is used in the analysis of an 
image, so that the sub-bands of the decomposition include 

30 spatially local information which indicate the spatial 
locations in which the frequency band occurs. Whereas 
most sub-band encoding methods use long filters in order 
to achieve superior frequency separation and maximal stop 
band rejection, the filter used in the present invention 

35 has compromised frequency characteristics in order to 
maintain good spatial locality. 
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Images can be thought of as comprising three 
components: background intensities, edges and textures. 
The forward quasi-perfect inverse transform separates the 
background intensities (the low pass luminance and 
5 chrominance bands) from the edge and texture information 
contained in the high frequency bands. Ideally, enough 
bandwidth would be available to encode both the edges and 
the textures so that the image would reconstruct 
perfectly. The compression due to the encoding would then 

10 be entirely due to removal of redundancy within the 
picture. If, however, the compressed data is to be 
transmitted and/or stored at low data transmission rates, 
some visual information of complex images must be lost. 
Because edges are a visually important image feature, the 

15 encoding method of the present invention locates and 

encodes information about edges or edge-like features for 
transmission or storage and places less importance on 
encoding textural information. 

There are no exact definitions of what constitutes an 

20 edge and what constitutes texture. The present invention 
uses a definition of an edge that includes many types of. 
textures. An edge or an edge-like featxire is defined as a 
spatially local phenomenon giving rise to a sharp 
discontinuity in intensity, the edge or edge-like feature 

25 having non-zero spectral components over a range of 

frequencies. Accordingly, the present invention uses a 
frequency decomposition which incorporates spatial 
locality and which is invertible. The wavelet transform 
realized with quasi-perfect inverse transform digital 

30 filters meets these requirements. 

Because an edge has non-zero components over a range 
of frequencies of the decomposition in the same locality, 
an edge can be located by searching through the wavelet 
decomposition for non-zero data values that represent 

3 5 edges. The method begins searching for edges by examining 
the low frequency sub-bands of the decomposition. These 
bands have only a small number of data values because of 
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the subsampling used in the wavelet transform and because 
the spatial support of each low frequency data value is 
large • After a quick search of the lowest frequency sub- 
bands, the positions of potential edges are determined. 
5 Once the locations of the edges are determined in the 
lowest frequency sub-bands, these locations can be 
examined at a higher frequency resolutions to confirm that 
the edges exist and to more accurately determine their 
spatial locations, 

10 Figure 23 illustrates an example of a one-dimensional 

binary search. There are three binary trees arranged from 
left to right in the decomposition of Figure 23. There 
are three octaves, octaves 0, l and 2, of decomposed data 
values in Figure 23. The low pass component is not 

15 considered to be an octave of the decomposition because 
most of the edge information has been filtered out. 
Figures 24A-24D illustrate the forward transformation of a 
one-dimensional sequence of data values D into a sequence 
of transformed data values such as the tree structure of 

20 Fig\ire 23. The data values of the sequence of Figure 24A 
are filtered into low and high frequency components H and 
G of Figure 24B. The low frequency component of Figure 
24B is then filtered into low and high frequency 
components HH and HG of Figure 24C. The low frequency 

25 component HH of Figure 24C is then filtered into low and 
high frequency components HHH and HHG. The transformed 
data values of HHH block 240 of Fig\ire 24D correspond with 
the low frequency component data values A, G and M of 
Figure 23. The transformed data values of HHG block 241 

30 of Figure 2 4D correspond with the octave 2 data values B, 
H and N of Figure 23. The transformed data values of HG 
block 242 of Figure 24D correspond with the octave 1 data 
values of Figure 23. Similarly, the transformed data 
values of G block 243 correspond with the octave 0 data 

35 values of Figure 23. Although only three trees are shown 
in Figure 23, the number of HHH data values in block 240 
can be large and the size of the tree structure of Figure 
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2 3 can extend in the horizontal dimension in a 
corresponding manner. 

The encoding of a one dimensional wavelet 
decomposition such as the decomposition of Figure 2 3 is 
5 performed in similar fashion to a binary tree search. The 
spatial support of a given data value in a given frequency 
band is the same as two data values in the octave above it 
in frequency. Thus the wavelet decomposition is 
visualized as an array of binary trees such as is 
10 illustrated in Figure 23, each tree representing a spatial 
locality. The greater the number of transform octaves, 
the higher the trees extend upward and the fewer their 
number . 

As illustrated in Figure 23, each of the data values 
15 of the decomposition represents a feature which is either 
"interesting" to the human visual system, or it represents 
a feature that is "non-interesting" to the hxaman visual 
system. A data value representing an edge of an object in 
an image or an edge-like feature is an example of an 
20 "interesting" data value. The encoding method is a depth 
first search, which starts at the trunk of a tree, ascends 
up the branches of the tree that are interesting, and 
terminates at the non-interesting branches. After all the 
branches of a tree have been ascended until a non- 
25 interesting data value is encountered or until the top of 
the branch is reached, the encoding of another tree is 
begun. Accordingly, as the encoding method follows the 
interesting data values of Figure 23 from octave 2 to 
octave 1 to octave 0, the edge is followed from low to 
3 0 high frequency resolution and an increasingly better 
approximation to the spatial position and shape of the 
edge is made. Conversely, if at any stage, a non- 
interesting data value is found, the search is terminated 
for data values above that non-interesting data value. 
3 5 The higher frequency data values of the tree above a 
non-interesting data value are assumed to be non- 
interesting because the corresponding low frequency data 
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values did not indicate the presence of an edge at this 
location. Any interesting data values that do exist in 
the higher frequency bands above a non-interesting data 
value in a low frequency band are rejected as noise. 
5 The one-dimensional tree structure of Figure 23 is 

encoded as follows. The low frequency coiaponents carry 
visually important information and are therefore always 
considered to be "interesting". The method of encoding 
therefore starts with low frequency component A. This 

10 data value is encoded. Next, the octave 2 data value B is 
tested to determine if it represents an edge or an edge- 
like feature which is "interesting" to the human visual 
system. Because data value B is interesting, a token is 
generated representing that the bits to follow will 

15 represent an encoded data value. Interesting data value B 
is then encoded. Because this tree has not yet 
terminated, the method continues upward in frequency. 
Data value C of octave 1 is then tested. For purpose of 
this example, data value C is considered to be interesting 

20 as are data values A, B, C, D, G, H, J, L and M as 

illustrated in Figure 23. A token is therefore generated 
indicating an encoded data value will follow. After the 
token is sent, data value C is encoded. Because this 
branch has still not terminated in a non-interesting data 

25 value, the method continues upward in frequency. Data 
value D is tested to determine whether or not it is 
interesting. Because data value D is interesting, a token 
is generated and data value D is encoded. Because octave 
0 is the highest octave in the decomposition, the encoding 

30 method tests the other branch originating from previous 
interesting data value C. Data value E however tests to 
be non-interesting. A non-interesting token is therefore 
generated. Data value E is not encoded and does not 
appear in the compressed data. With both branches 

3 5 originating at data value C terminated, the method 

proceeds down in frequency to test the remaining branches 
originating from the previous interesting data value B. 
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Data value F is, however, deterrained to be non- 
interesting. A non-interesting token is therefore 
generated and data value F is not encoded and does not 
appear in the encoded data. Because this branch has 
5 terminated, all data values higher in frequency above data 
value F are considered to be non-interesting. A decoding 
device receiving the sequence of encoded data values and 
tokens can determine from the non-interesting token that 
all corresponding higher frequency data values were 

10 considered to be non-interesting by the encoding device. 
The decoding device can therefore write the appropriate 
data values as non-interesting and write zeroes to these 
locations obviating the need for the encoding device to 
transmit each non- interesting data value above F. With 

15 the first tree encoded, the method proceeds to the next 
low frequency component, data value G. This is a low 
frequency component and therefore is always considered to 
be interesting. Data value G is therefore encoded. The 
method then proceeds to the next tree through blocks H, I, 

20 J, K and L in that order generating interesting and non- 
interesting tokens and encoding interesting data values. 
Similarly, after the second tree is terminated, low 
frequency component data value M is encoded. Data value N 
is determined to be non-interesting so a non- interesting 

25 token is sent and the encoding of the third tree is 
terainated. 

In accordance with another embodiment of the present 
invention, a two-dimensional extension of the one- 
dimensional case is used. Rather than using binary trees, 

3 0 four branch trees are used. However, to create a 

practical image encoding method there are also real world 
factors to take into account. Using a single data value 
to predict whether the remainder of the tree is zero, is 
unreliable when dealing with noisy image data. A small 

3 5 two-by-two block of data values is therefore used as the 
node element in the tree structure of the two-dimensional 
embodiment. A decision as to whether or not an edge is 
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present is based on four data values which is more 
reliable than a decision based on single data value. 

Figure 25 illustrates a tree structure representing a 
portion of the decomposition of Figure 18. The 
5 decomposition of Figure 18 may extend farther to the right 
and farther in a downward direction for larger two- 
dimensional arrays of image data values. Similarly, the 
tree structure of Figure 25 may extend farther to the 
right for larger arrays of data values. Figure 25 
10 represents a decomposition only having octave 0 and 1 high 
frequency components. In the event that the decomposition 
had additional octaves of high frequency components, the 
tree structure would extend further upward. In contrast 
to the binary tree structure of Figure 23, the tree 
15 structure of Figure 25 is a four branch tree. The two-by- 
two block of four octave 1 data values HHHG is the root of 
a tree which extends upward in frequency to four HG two- 
by-two blocks. If another octave of decomposition were 
performed, another level of octave 2 high frequency two- 
20 by- two blocks would be inserted into the tree structure. 
Four HHHG octave 1 two-by-two blocks would, for example, 
have a single octave 2 HHKHKG block beneath them. The low 
frequency component would be denoted HHHHHH. 

Figure 2 6 is a pictorial representation of the 
25 decomposition of the tree structure of Figure 25. As 

explained above with respect to Figure 15, the actual data 
values of the various denoted blocks are distributed 
throughout the two-dimensional array of data values. The 
two numbers separated by a comma in each of the boxes of 
3 0 Figure 25 denote the row and column of a data value of the 
two-dimensional array of Figure 18, respectively. Using 
this tree structure, it is possible to search through the 
transformed data values of Figure 18 encoding interesting 
two-by-two blocks of data values and ignoring non- 
35 interesting two-by-two blocks. 

To describe how the two dimensional encoding method 
uses the tree structure to search through a decomposition, 
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some useful definitions are introduced. First an image 
decomp is defined with dimensions WIDTH by HEIGHT 
decomposed to number OCTS of octaves. A function Access 
is defined such that given some arguments, the function 
5 Access outputs the memory address of the specified data 
value in the wavelet decomposition decomp: 

address = Access (oct, sub, x, y) ; 

oct is the octave of the data value sought and is an 
integer value between O (the highest octave) and OCTS-1 

10 (the number of octaves of transformation OCTS minus one) • 
sujb indicates which of the HH, HG, GH or GG bands of the 
decomposition it is that the data value sought is found. 
The use of sub = HH to access the low pass data values is 
only valid when the value of oct is set to that of the 

15 lowest octave. The co-ordinates x and y indicate the 

spatial location from the top left hand corner of the sub- 
band specified by oct and sub. The range of valid values 
of X and y are dependent on the octave being accessed, x 
has a range of {O. . . WIDTH / 2'^'*'^} . y has a range of {O . 

20 . . HEIGHT/ 2'^''^}. 

Given the function Access and a wavelet 
decomposition, a two-by-two block of data values can be 
read by the function ReadBlock. 

block = ReadBlock (decomp, oct, sub, x, y) { 
25 jbloc/c[0] [0] = decomp[Access {oct , sub, x, y) ] ; 

Jbioc;c[0] [1] = decomplAccess{oct, sub, y) ] ; 

blockll][0] = decomp I Access (oct, sub, x, y+I)]; 
bIocic[l][l] - decomp[Access(oct, sub, x-^l, y+1) ] ; 

} 

30 The wavelet decomposition is passed to the function 

ReadBlock via the variable decomp. The two-by-two block 
of data values is returned through the variable blocJt. 
Once a two-by-two block of data values is read, a 
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decision is made as to whether the two-by-two block is 
visually "interesting" and should therefore be encoded or 
whether it is not and hence should be discarded- The 
decision is made by a function called Threshold. The 
5 argiiments of the function Threshold are block, act and 
sub. Threshold returns a boolean value True if the block- 
is "interesting" and False if the block is "non- 
interesting" . 

if the block is determined to be interesting by the 
10 function threshold, it is encoded using a function called 
EncodeBlock . A function SendToken inserts a token before 
the encoded block to inform a decoding device which will 
later decode the compressed data whether the block to 
follow the token has been encoded (i.e. BlockNotEmpty) or 
15 has not been encoded (i.e. BlockEmpty) . If a block is 
determined to be interesting, then a BlockNotEmpty token 
is sent, and the block is encoded; next the tree structure 
above the encoded block is ascended to better determine 
the location of the edge. The tree encoding procedure 
20 SendTree is therefore defined recursively as follows: 



SendTree {decomp, oct, sub, x, y, Q) { 

block = ReadBlock {decomp, oct, sub, x, y) ; 
If Threshold {block, oct, sub, Q) { 
SendToken {BlockNotEmpty) ; 
25 EncodeBlock {block, oct, sub, Q) ; 

If (oct >0) { 

SendTree {decomp, oct-1, sub, 2*x, 2*7, Q) } 
SendTree {decomp, oct-1, suJb, 2*(a:+1), 2*y, 0) ; 
SendTree {decomp, oct-l, sub, 2*x", 2*(y+l); Q) ; 
30 SendTree {decomp, oct-1, suJb, . 2* (:c+i) , 2*(y+l), Q) 

} 

} else SendToken {BlockEmpty) ; 



The procedure SendTree is only used to encode high- 
35 pass component data values. In procedure SendTree 
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(decomp, oct^ sub, Q) , if the two-by-two block 

accessed by ReadBlock is determined to pass the threshold 
test, then SendTree {decomp, sub 2*y, Q) is 

used to test one of the next higher two-by-two blocks in 
5 the decomposition tree. 

The low-pass data values are not considered to form 
part of the tree structure. The low-pass data values are 
encoded using another procedure SendLPF. In addition, the 
low-pass values are encoded using a different technique 
10 than that used in EncodeBlock , so a new procedure 
EncodeBlockLPF is required. 

SendLPF ( decomp , x, y , Q) { 

block = Readblock {decomp, OCTS-l, HH, x, y) ; 
EncodeBlockLPF {block, OCTS-1, Q) ; 

15 } 

Accordingly, to encode the entire image, SendLPF is 
applied to all the block locations within the low pass 
band and SendTree is applied to the all the block 
locations in the HG, GH and GG bands, within the lowest 
20 octave. A procedure SendDecomp is therefore defined that 
encodes the entire image decomposition: 

SendDecomp {decomp, Q) { 

For (y=0; y<HEIGHT/2^^; 7=7+2) 
For (x=0; x<WIDTH/2^^; ;c=x+2) { 
25 SMdLPF {decomp, x, y, Q) ; 

SendTree {decomp, OCTS-^l, HG, x, y, Q) ; 
SendTree {decomp, OCTS-1, GH, x, y, Q) ; 
SendTree {decomp, OCTS-l, GG, x, y, Q) ; 

} 

30 } 

Accordingly, the above functions define a method for 
encoding wavelet decomposed images. In terms of speed of 
encoding for real-world images, many of the trees are 
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teinninated within the initial octaves so much of the 
decomposition is not examined. Due to this termination of 
many trees in the initial octaves, many data values need 
not be encoded which results in reducing the memory' 
5 bandwidth and block processing required to implement the 
compression/decompression method. Provided the functions - 
Threshold r EncodeBlockLPF and Access require only simple 
calculations, the decomposed data values are rapidly 
encoded. 

10 To implement the function Access, a table containing 

all the addresses of the data values of the two- 
dimensional tree decomposition may be accessed using the 
variables x, y, suh and oct. For a small image having a 
small number of data values, this table lookup approach is 

15 reasonable. For images having, for example, approximately 
80 different values of x, 60 different values of y, four 
different values of sujb, and 3 or 4 values for oct, this 
table would contain approximately 150,000 10-bit 
locations. A less memory intensive way of determining the 

20 same X and Y addresses from the same variables is 
desirable. 

In accordance with one embodiment of the present 
invention, a function is used to determine the X and Y 
addresses from the variables x, y, sub and oct. Address 
25 X, for example, may be determined as follows: 

X = ({X « 1) + (sub » 1)) « oct 

where « denotes one shift to the right of value x and 
where » denotes one shift to the left. 

Address Y, for example, may be determined as follows: 

30 Y = ((y « 1) -h (1 & sub)) « oct 

where & denotes a bit-wise AND function. 

In a high performance system, the function Access may 
be implemented according to the following method. The 



wo 94/23385 



PCT/GB94/00677 



- 56 - 

recursive function call and the table lookup methods 
described above are often too slow to implement in real 
time software or in hardware. Figures 27 and 28 
illustrate how the tree decomposition of Figure 25 is 
5 traversed in order to generate tokens and encode two-by- 
two blocks of data values. The X and the Y in Figures 27. 
and 28 denote coordinate addresses in the two-dimensional 
matrix of Figure 18. In order to traverse the tree of the 
decomposition of Figure 25, it is necessary to be able to 

10 determine the X and Y addresses of the data values 

represented in Figure 25. Figure 27 illustrates how the X 
and Y address of a two-by-two block of data values are 
determined for those two-by-two blocks of data values 
located in octave 0 of the decomposition of Figure 25. 

15 Similarly, Figure 28 illustrates how the X and Y addresses 
of the three two-by-two blocks of data values in octave 1 
of the decomposition as well as the one two-by-two block 
of data values of the low pass component of the 
decomposition of Figure 25 are determined • X as well as Y 

20 are each functions of oct, TreeRoot, and sub. The values 
of suh^ and suJb^ are determined by the sub-band of the two- 
by-two block of data values sought. 

Figure 29 is a chart illustrating the values of sub^ 
and suby for each sub-band of the decomposition. If, for 

25 example, a two-by-two block of data values is sought in 
the HH band, then the values of sub^ and suby are 0 and 0, 
respectively. The values TreeRoot^ and TreeRooty together 
denote the particular tree of a decomposition containing 
the particular two-by-two block of the data values sought. 

3 0 In Figures 27 and 28, the rectangles represent 

digital counters. The arrows interconnecting the 
rectangles indicate a sequence of incrementing the 
counters. For example, the right most rectangle in Figure 
27, Which is called counter CI, has a least significant 

3 5 bit represented in Figure 27 as bit Cl^ and a most 

significant bit represented as bit CI^. Similarly, the 
next rectangle to the left in Figure 27 represents a 
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digital counter C2 having two bits, a least significant 
bit C2^ and a most significant bit C2y, The structure of 
the X, Y' address depends on the octave in which the two- 
by-two block of data values being sought resides. To 
5 generate the X, Y address in octave oct = 1, the counter 
CI is not included, the suJb^ and suby bits indicating the 
sub-band . bits are shifted one place to the left, and the 
least significant bits are filled with zeros. The 
incrementing of the counters in Figure 28 proceeds as 

10 illustrated by the arrows. 

To determine the X and Y addresses of the four data 
values of the low pass component HHHH of Figiire 25, Figure 
28 is used. Because thd two-by-two block of data values 
being sought is a two-by-two block of the low pass 

15 component, the values of sub, and suby are 0, 0 as required 
by the table of Figure 29. The C2 counter of Figure 28 

increments through the four possible values of C2 and C2 

* y 

to generate the four addresses in the two-by-two block of 
data values of the HHHH in the low pass component of 

20 Figure 25. The value of TreeRootj, and TreeRooty are zeroes 
because this is the first tree of the decomposition. For 
subsequent trees of the decomposition, TreeRooty and 
TreeRooty are incremented as illustrated by the arrows in 
Figure 28 so that the X and Y addresses of the other two- 

25 by-two blocks of data values in the low pass component of 
the tree decomposition can be determined. After this HHHH 
two-by-two block of data values is located, the four data 
values are encoded and the search through the tree 
structure proceeds to the two-by-two block of data values 

30 in octave 1 denoted HHHG in Figure 25. To determine the X 
and Y addresses of the four data values of this two-by-two 
block, the value of bits sub^ and suby are changed in 
accordance with Figure 29. Because this two-by-two block 
is in the HG sub-band, the values of sub^ and sub are 0 

35 and 1, respectively. The C2 counter is then incremented 
through its four values to generate the four addresses of 
the four data values in that block. Supposing, that this 
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two-by-two block is determined to be "interesting" then an 
interesting token is sent, each of the four data values of 
the block are encoded, and the tree is then ascended to 
the two-by-two block of data values in octave 0 denoted 
5 HG#1. These four addresses are determined in accordance 
with Figure 27. Because the sub-band is sub-band KG, the 
values of the bits suJb^ and suby are 0 and 1, respectively. 
Counter Cl is then incremented so that the four addresses 
illustrated in the two-by-two block octave 0 HG#1 of 

10 Figure 25 are generated. If the two-by-two block is 
interesting, then the interesting token is sent and the 
four data values are encoded • If the two-by-two block is 
determined not to be interesting, then a non-interesting 
token is sent and the four data values are not encoded. 

15 The search through the tree structure of the decomposition 
then proceeds to octave 0 block HG#2 . After the four 
addresses of the octave 0 block HG#1 are generated, the C2^ 
bit of the C2 counter is incremented in accordance with 
the arrows shown in Figure 27. Accordingly, the octave 0 

20 block HG#2 is addressed when once again the Cl coxinter 

increments through its four states. If the data values of 
this two-by-two block are determined to be "interesting", 
an interesting token is sent followed by the encoded data 
values. If the data values of the two-by-two block are 

25 determined to be non-interesting, then a non-interesting 
token is sent. After all the search of the four two-by- 
two blocks of the octave 0 HG sub-band are searched, then 
that HG tree is terminated and the search proceeds to 
determine the four addresses of the four data values of 

3 0 the octave 1 HHGH two-by-two block. In accordance with 
this technique, it is possible to traverse the structure 
of the decomposition and determine the addresses of any 
two-by-two block in any octave or any sub-band with 
minimum overhead. Moving between consecutive addresses or 

3 5 descending trees is a simple operation when compared to 
the snaking address path used by other compression methods 
such as JPEG. 
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When implemented in software, this technique enables 
real time compression and decompression whereas other 
techniques may be too slow. If implemented in hardware, 
this technique provides for a reduced gate count and an 
5 efficient implementation. Although this example shows one 
way of traversing the tree structure of wavelet transform 
decomposition, it is possible to traverse the tree 
structure in other ways simply by changing the control 
structure represented in Figures 27 and 28 to allow for a 
10 different traversal of the tree structure. For example, 
all of the low pass HHHH blocks can be located and encoded 
first followed by all of the HHHG tree of the 
decomposition, and then all of the HHGH trees, and then 
all of the HHGG trees. 



QUANTIZATION 

Each data value of each two-by-two block of the tree 
decomposition which is determined to be "interesting" is 
quantized and then Huffman encoded. A linear mid-step 
quantizer with double-width-0 step is used to quantize 

20 each of the data values. Figure 30 is an illustration of 
the quantization of a 10-bit twos complement data value. 
The range of the lO-bit data value to be quantized ranges 
from -512 to 511 as illustrated by the numbers above the 
horizontal line in Figure 30. This range is broken up 

25 into a plurality of steps. Figure 31 represents one such 
step of data values which extends from 128 to 256 in 
Figure 30. All incoming data values having values between 
128 and 255 inclusive are quantized by dividing the data 
value by the value gstep. Accordingly, the data value A 

30 having a value of 150 as illustrated in Figure 31 is 
divided by the gstep value 128 and results in a gindex 
number of 1. Integer division is used to generate qindex 
and the fractional part of the remainder is discarded. 
Once the qindsx number is determined, the gindex number is 

35 Huffman encoded. An overall Q value is sent once per 
. frame of compressed data values. The value gstep is 
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detennined from the overall Q value as described below. 

To inverse quantize the qindex number and the qstep 
value to determine the value of the transformed data 
values before inverse transformation, the device decoding 
5 the incoming quantized values calculates the value of 

qstep using the value of Q according to a method described 
below. Once the value of qstep in determined, qindex for 
a given data value is multiplied by qstep. 

In the example of Figure 31, qindex value 1 times 

10 qstep 128 results in an inverse quantized value of 128. 
If this inverse quantized value of 128 were used, however, 
all the data values in the step 128 through 255 would be 
inverse quantized to the value of 128 at the left end of 
the step. This would result in unacceptably large errors. 

15 On the other hand, if all the data values in the range of 
Figure 31 were inverse quantized to the mid-step value 
191, then less error would result. Accordingly, an 
inverse quantized value gvalve can be calculated from 
qindex and qstep as follows: 



20 gyalue {qindex, qstep) = 



qindex^ qstep-^-^^^ -ij if qindex<0 

0 if qindex^Q 

gij3dex*grstep+|-2£|££ -ij if qindex>Q 



The human visual system, however, has different 
sensitivities to quantization errors depending upon the 
particular sub-band containing the quantized data values. 
The human visual system performs complex non-linear 

25 processing. Although the way the human visual system 
relates image intensities to recognizable structures is 
not well understood, it is nevertheless important to take 
advantage of as much information about the human visual 
system as possible in order to maximize compression ratio 

3 0 versus picture quality. The wavelet transform 

approximates the initial image processing performed by the 
human brain. Factors such as spatial frequency response 
and Weber's Law can therefore be applied directly to the 
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wavelet transformed data values because the transformed 
data values are in a convenient representation. 

Figure 3 2 shows the sensitivity of the human eye to 
spatial frequency. Spatial frequency is measured in 
5 cycles c per visual angle 6. A screen is positioned at a 
distance d from an observer as illustrated in Figure 33. 
A light of sinusoidally varying luminance is projected 
onto the screen. The spatial frequency is the number of 
luminance cycles c per visual degree 6 at distance d. 

10 Note from Figure 32 that the sensitivity of the human eye 
varies with spatial frequency. Accordingly, the value of 
gstep is varied depending on the octave and sub-band of 
the data valve being quantized. The gstep at which a 
data valve is quantized is determined from the variables 

15 oct, sujb and Q for that data valve as follows: 

gstep {oct,suJb,0) = g * 23vs_factor (oct,suJb) 



hvs_fact:ox{oct.sub)-^ sub=GGl 

[l otherwise] 



1.00 if oct=0 
0.32 if oct=l 
0.16 if oct=2 
0.10 if oct=3 



The scaling factors 1.00/ 0.32, 0.16 and 0.10 relate to 
the spatial frequency scale of Figure 32 to take into 
20 account the frequency dependent sensitivity of the human 
eye. 

It is to be understood that scaling factors other 
than 1.00, 0.32, 0.16 and 0.10 could be used. For 
example, other scaling factors can be used where the 

25 quantizer is used to compress audio data which is received 
by the human ear rather than by the human eye. Moreover, 
note that the sub-band GG is quantized more heavily than 
the other sub-bands because the sub-band GG contains 
diagonal information which is less important to the human 

3 0 eye than horizontal and vertical information. This method 
can also be extended down to the level of two-by-two 
blocks of data values to further tailor the degree of 
quantization to the human visual system. The function 
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hvs_f actor which has only two parameters in the presently 
described embodiment is only one embodiment of the present 
invention. The function hvs_f actor , for example, can take 
into account other characteristics of the human visual 
5 system other than oct and suJb, such as the luminance of 
the background and texture masking. 

THRESHOLDING 

For each new two-by-two block of data values in the 
tree decomposition, a decision must be made as to whether 
10 the block is "interesting" or "non-interesting". This can 
be done by the function threshold: 



threshold (block, limit) = liizdt > \block[y]lx] \ 

(equ. 60) 



The sum of the absolute values of the data values of the 
15 block block is determined as is represented by the double 

sximmation to the right of the less than sign and this 

value is compared to a threshold value limit. 

"Interesting" blocks are those blocks, for which the sum 

of the absolute values of the four data values exceeds the 
20 value limit, whereas "non-interesting" blocks are those 

blocks for which the sum is less than or equal to the 

value limit. 

The value limit takes into account the variable 
quantizer step size qstep which varies with octave. For 

25 example, a two-by-two block of data values could be 
determined to pass the test threshold, but after 
quantizing by gstep could result in four zero quantized 
values. For example, all data values between -128 and 127 
are quantized to have a quantized qindex of zero as is 

3 0 shown in Figure 3 0 even if some of those data values are 
determined to correspond with an "interesting" two-by-two 
block. For this reason, the value limit is calculated 
according to the equation: 
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limit = A-^Bthreshold^qstep (equ. 61) 

In this equation "Bthreshold'* is base threshold image 
factor. In the presently described example, this base 
threshold is equal to 1.0. The value of 1.0 for the base 
5 threshold Bthreshold was determined through extensive 
experimentation on test images. The factor 4 in equation 
61 is included to account for the fact that there are four 
data values in the block under consideration. In this way 
blocks are not determined to be interesting, the data 
10 values for which the quantizer will later reduce to zeros. 
This weighted threshold factor limit also reduces the 
number of operations performed in the quantizer because a 
fewer number of data values are quantized. 

HUFFMAN CODING 
15 The wavelet transform produces transformed data 

values whose statistics are vastly different from the data 
values of the original image. The transformed data values 
of the high-pass sub-bands have a probability distribution 
that is similar to an exponential or Laplacian 
2 0 characteristic with mean zero. 

Figure 34 shows the distribution of high pass data 
values in a four octave wavelet decomposition of the test 
image Lenna. Figure 35 shows the distribution of the data 
values of the test image Lenna before wavelet transfonna- 
25 tion. The low-pass component data values have a flat 
distribution that approximates the distribution of 
luminance and chrominance values in the original image. 
The high and low pass data values are encoded differently 
for this reason. 
30 The low pass component data values are encoded by the 

function EncodeBlockLPF as follows: 

EncodeBlockLPF ( block, OCT-1, Q) { 

Output ( jbloc;c[03 [0]/qstep( OCT-1, HH , Q)); 
Output ( jbioc;c[0] [l]/gstep( OCT-1, HH , Q)); 
35 output ( block[l][0]/qstep{ OCT-l, HH , Q) ) ; 
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Output ( blockll][l]/gstep{ OCT-1, HE, 0));} 

After encoding, the low-pass data values are 
quantized and output into the compressed data stream. The 
low pass data values are not Huffman encoded. 
5 The high frequency component data values which pass 

the threshold test are quantized and Huffman encoded to 
take advantage of their Laplacian distribution. Function 
EncodeBlock performs the quantization and the Huffman 
encoding for each of the four data values of an 

10 interesting high frequency component block block. In the 
function EncodeBlock, the variable sub is provided so that 
when function gstep is called, different quantization 
qstep values can be used for different high frequency 
component sub-bands. The function huf£man performs a 

15 table lookup to a fixed Huffman code table such as the 
table of Table 3. The function -E:i2CodeBIoc;c is defined as 
follows: 

EncodeBlock {block, oct, sub, Q) { 

Output (hujfrman (jb2oc;c[0] [0]/gstep(oct, sub, 0) ) ) ; 
20 Output (huf^inaii (jb2oc;c[0] [l]/gstep(oct, sub, Q))); 

Output (huf /man (blocic [1] [0] /gstep (oct, sub, £?))); 
Output (hurfjnan (jbloc;c[ 1] [l]/gstep(oct, sub, £?))); 

} 
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10000001 


7 . . 21 


10000000 (Iqrincfexl -7) 


22 . , 37 


100000001111 {\q±ndex\ -22) 


38 . . 511 


1000000011111111 



Table 3 

The second bit from the left in the Huffman code of 
Table 3 is a sign bit. The value |gij2dex|-7 is 
represented with 4 bits in the case 7 < |gindex|< 21 • The 
25 value | giudex-] -22 is represented with 4 bits in the case 
22 <\gindex\< 37). 

ENCODING OF TOKENS 
At high compression ratios the number of bits in the 
compressed data stream used by tokens may be reduced by 
3 0 amalgamating groups of "non-interesting" tokens. This can 
be achieved by introducing new tokens. In accordance with 
one embodiment of the present invention, two new tokens, 
OctEmpty and OctNotEmpty are used. For a high pass 
component block in a tree above octave zero, there are 
3 5 four branches. The additional pair of tokens indicate 
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whether all four are non-interesting. if all four are 
non-interesting, only a single OctEmpty token need be 
sent. Otherwise, an OctNotEmpty token is generated before 
the four branches are encoded. The particular token 
5 scheme described above was selected more to simplify the 
hardware and software implementations than it was to 
achieve in the best compression ratio possible. Other 
methods of representing relatively long sequences of token 
bits in the compressed data stream using other tokens 
10 having a relatively fewer number of bits may be used in 
place of the tokens OctEmpty and OctNotEmpty to achieve 
higher compression ratios. 

VIDEO ENCODING AND DECODING 
In comparison with the coding of a still image, the 

15 successive images of a video sequence typically contain 
much redundant information. The redundancy of this 
information is used to reduce the bit rate. If a location 
in a new frame of the video contains the same or 
substantially the same information as a corresponding 

20 location in the previous old frame of video, that portion 
of the new frame need not be encoded and introduced into 
the compressed data. This results in a reduction in the 
total number of bits in the encoded bit stream. 

Figure 36 illustrates a video encoder 31 and a video 

25 decoder 32. A video input signal is transformed by a 

forward wavelet transform block 33, the output of which is 
written to a new frame store 34. The first frame of video 
information in the new frame store 34 is referred to as 
the new frame because no previous frame exists in the old 

3 0 frame store 35 for containing an old frame. A comparison 
tree encoder 3 6 therefore generates tokens and transformed 
data values as described above from the data values output 
from new frame store 34, The transformed data values are 
quantized by quantizer 37 into gindex levels. These 

3 5 qindex levels are then Huffman coded by the Huffman 

encoder 38. The resulting encoded data values are then 
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combined with the tokens in buffer 3 8A to form a 
decompressed data bit stream 39. 

An essential part of this method is that the old 
frame present in the video encoder 31 is exactly the same 
5 as the old frame 40 present in the video decoder 32, This 
allows the decoder 3 2 to be able to correctly decode the 
encoded bit stream 39 due to the fact that the encoded bit 
stream contains differences between new and old images and 
due to the fact that parts of the new frame are not sent 

10 due to compression. An inverse quantizer 41 is therefore 
provided in the video encoder 31 to inverse quantize the 
qindex levels and to store the old frame as sent into old 
frame store 35 for future comparison with the next frame 
of the video input signal. 

15 In the video decoder 22, the compressed data stream 

39 is received by a buffer 42. The tokens are separated 
from the Huffman encoded gindBx levels. The Huffman 
encoded qindex levels are supplied to a Huffman decoder 
43, the output of which is supplied to an inverse 

20 quantizer 44. The output of the inverse quantizer 44 is 
written into old frame store 40 under the control of the 
comparison tree decoder 45. Comparison tree decoder 45 
determines what is written into the old frame store 40, 
depending in part on the tokens received from buffer 42. 

25 Once a new frame of transformed data values is present in 
old frame store 40, an inverse wavelet transform 46 
inverse transforms that frame of transformed data values 
into a corresponding video output signal. To prevent the 
inverse wavelet transform 46 from overwriting and 

30 therefore corrupting the contents of old frame store 40 
when it reconstructs data values corresponding to the 
original new frame data values, an intermediate frame 
store 47 is maintained. 

The octave one HHHG, HHGH, HHGG, and HHHH from Figure 

35 25 are read from the old frame store 40 by the inverse 
wavelet transform 4 6 to perform the octave 1 inverse 
transform as described above. However, the resulting 
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octave 0 HH sub-band, output from the inverse wavelet 
tranform 4 6 is now written to the intermediate frame store 
47, so as not to corrupt the old frame store 40. For the 
octave 0 inverse wavelet transform, the HG, GH, and GG 
5 sub-bands are read from the old frame store 40, and the HH 
sub-band is read from the intermediate frame store 47, to 
complete the inverse wavelet transform. 

When the second frame of compressed video data 39 is 
received by the video decoder 32, the tokens received by 

10 the comparison tree decoder 45 are related to the contents 
of the previous frame of video information contained in 
old frame store 40. Accordingly, the video decoder 32 can 
reconstruct the latest frame of video data using the 
contents of the frame store 40 and the data values encoded 

15 in the compressed data stream 39, This is possible 
because the compressed data stream contains all the 
information necessary for the video decoder 32 to follow 
the same traversal of the tree of the decomposition that 
the encoder used to traverse the tree in the generation of 

20 the compressed data stream. The video decoder 32 

therefore works in lock step with the video encoder 31. 
Both the encoder 31 and the decoder 32 maintain the same 
mode at a corresponding location in the tree* When the 
encoder 31 determines a new mode, it incorporates into the 

25 compressed data stream 39 a corresponding token, which the 
video decoder 32 uses to assume that new mode. 

Figure 3 7 illustrates the modes of operation of one 
possible embodiment of the present invention. To explain 
the operation of the video encoder 31 and the video 

30 decoder 32, an example is provided. The initial frame of 
the video sequence is processed by the video encoder 31 in 
still mode. Still mode has three sub-modes: STILL, 
VOID_STILL, and LPF_STILL. The low pass two-by-two blocks 
of data values of the decomposition cause the comparison 

3 5 tree encoder 3 6 of video encoder 31 to enter the LPF_STILL 
sub-mode. In this sub-mode, the four data values of the 
two-by-two block are quantized but are not Huffman 
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encoded. Similarly, no token is generated. The 
successive low pass component two-by-two blocks of data 
values are successively quantized and output into the 
compressed data stream 39, 
5 Next, the lowest frequency octave of one of the sub- 

bands is processed by the comparison tree encoder 36. 
This two-by-two block of data values corresponds with 
block HHHG illustrated in Figure 25. The four data values 
of this two-by-two block are tested against the threshold 

10 limit to determine if it is "interesting". If the 

two-by-two block HHHG is interesting, then a single bit 
token 1 is generated, as illustrated in Figure 37, the 
mode of the comparison tree encoder remains in STILL mode, 
and the four data values of the two-by-two block HHHG are 

15 successively quantized and encoded and output into the 
compressed data stream 39. 

For the purposes of this example, block HHHG is 
assumed to be interesting. The tree structure of Figxire 
25 is therefore ascended to octave 0 two-by-two block 

20 HG#l. Because the comparison tree encoder 31 remains in 
the STILL mode, this block is encoded in the STILL mode. 
The four data values of block HG#1 are tested to determine 
whether or not they are interesting. This sequence of 
testing the successive blocks of the tree structure is 

25 repeated as described above. 

After the traversal of the four octave 0 sub-blocks 
HG#l, HG#2, HG#3 and HG#4 , the comparison tree encoder 36 
proceeds in the tree structure to the two-by-two block of 
data values in octave 1, block HHGH. For purposes of this 

30 example, this two-by-two is non-interesting. After the 
comparison tree encoder 36 reads the four data values,, the 
result of the threshold test indicates a non-interesting 
two-by-two block. As illustrated in Figure 37, the 
encoder 31 which is in the still mode now generates a 

3 5 single bit token 0 and the comparison tree encoder 3 6 
enters the VOID_STILL sub-mode. Although no additional 
information is output into the compressed data stream 39, 
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the comparison tree encoder 3 6 proceeds to write O's into 
the four locations of the two-by-two block HHGH, as well 
as all the locations of the two-by-two blocks in the tree 
above the non-interesting two-by-two block HHGH. In the 
5 example of Figure 25, the comparison tree encoder 36 
writes O's into all the addresses of blocks HHGH, GH#1, 
GH#2, GH#3 and GH#4 . This zeroing is performed because 
the video decoder 32 will not be receiving the data values 
corresponding to that tree. Rather, the video decoder 32 
10 will be receiving only a non-interesting token, a single 
bit 0. The video decoder 32 will therefore write zeros 
into frame store 40 in the remainder of the corresponding 
tree. In order to make sure that both the video encoder 
31 and the video decoder 32 have exactly the same old 
15 frame 35 and 40, the video encoder too must zero out those 
non-interesting blocks. 

After the first frame of video data has been encoded 
and sent in STILL mode, the next frame of video data is 
processed by the video encoder 31. By default, the 
20 encoder now enters SEND mode. For lowpass frequency 

component two-by-two blocks, the video encoder 31 enters 
the LPF_SEND mode as illustrated in Figure 37. The 
encoding of such a lowpass component two-by-two block 
corresponds with the encoding of two-by-two block HHHH in 
25 Figure 25. However, now the comparison tree encoder 3 6 
has both a new frame in frame store 34 as well as an old 
frame in frame store 35. Accordingly, the comparison tree 
encoder 3 6 determines the arithmetic difference of the 
respective four data values in the new frame from the four 
3 0 data values in the old frame at the corresponding position 
and compares the sum of those differences with a compare 
threshold. The compare threshold, compare, is calculated 
from a base compare threshold "Bcompare" as in the case of 
the previous threshold which determines which blocks are 
35 interesting, similar to equations 60 and 61. if the sum 
of the differences is less than the compare threshold, 
then the video encoder 31 sends a single bit token 0 and 
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remains in the LPF_SEND mode, as illustrated in Figxire 37. 
The video encoder 31 does not transmit any data values 
corresponding to the lowpass frequency component 
tvo-by-two block. 



differences exceeds the compare threshold, then a single 
bit token 1 is generated, as illustrated in Figure 37. In 
this case, the video encoder 31 sends the arithmetic 
differences of each of the successive four data values of 

10 the new frame versus the old frame to the quantizer 37 and 
then to the Huffman encoder 38. The arithmetic 
differences are encoded and sent rather than sending the 
actual data values because this results in fewer bits due 
to the fact that the two blocks in the new and old frames 

15 are quite similar under noinnial circumstances. 

When the video encoder 31 proceeds to encode the 
octave 1 sub-band HHHG, as illustrated in Figure 25, the 
video encoder 31 enters the SEND mode, as illustrated in 
Figure 37. In this mode, the comparison tree encoder 3 6 

20 compares the data values of the new two-by-two block with 
the data values of the old two-by-two block and performs a 
series of arithmetic operations to generate a series of 
flags, as illustrated in Figure 38. Based on these flags, 
the video encoder 31 generates a 2 -bit token and enters 

25 one of four new modes for that two-by-two block. If, for 
example, the two-by-two block HHHG in Figure 25 is 
received by the video encoder 31, then flags ozflag,, 
nzflag, new_z, no flag, motion, origin, and no_z are 
determined. The values of these flags are determined as: 



5 



If, on the other hand, the sum of the arithmetic 



1 1 



30 



nz 



= EE hewtx][y] I 



(equ. 62) 



JC-O yO 
1 1 



no 



= EE |r^ew[x][y]- old[x][y]I 



(equ. 63) 



x-o y-0 

1 1 



OZ 



(equ. 64) 
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nzflag = nz < limit (equ. 65) 

noflag = no < compare (equ. 66) 

origin = nz < no (equ. 67) 

motion = ( (nz + oz) « oct) < no (equ. 68) 

5 new^z = |new[x][y]| <qstep , 0 < y, < 1 (equ. 69) 

no_z = (new[x][y] - old [x][y][< qstep, 0<x,y<l (equ. 70) 

ozflag = {old[x][y] = 0; for all 0 <x, y<l> (equ. 71) 

Based on the values of these flags, the new mode for 

10 the two-by-two block HHHG is determined, from Figure 38. 

If the new mode is determined to be the SEND mode, 
the 2-bit token 11 is sent as indicated in Figure 37. The 
arithmetic differences of the corresponding four data 
values are determined, quantized, Huffman encoded, and 

15 sent into the compressed data stream 39. 

In the case that the flags indicate the new mode is 
STILL_SEND, then the 2-bit token 01 is sent and the new 
four data values of the two-by-two block are quantized, 
Huffman encoded, and sent. Once having entered the 

20 STILL_SEND mode, the video encoder 31 remains in the 
STILL_SEND mode until the end of the tree has been 
reached. In this STILL_SEiro mode, a single bit token of 
either 1 or 0 precedes the encoding of each block of data 
values. When the VOID mode is entered from STILL_SEND 

25 mode, the video encoder 31 generates a single bit 0 token, 
then places zeros in the corresponding addresses for that 
two-by-two block, and then proceeds to place zeros in the 
addresses of data values of the two-by-two blocks in the 
tree above. 

3 0 In the event that the flags indicate that the video 

encoder 31 enters the VOID mode from SEND mode, a 2 -bit 
token 10 is generated and the four data values of that 
two-by-two block are replaced with zeros. The VOID mode 
also results in the video encoder 31 placing zeros in all 

35 addresses of all data values of two-by-two blocks in the 
tree above. 

In the case that the flags indicate that there is no 
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additional information in the tree being presently 
encoded, namely, the new and the old trees are 
substantially the same, then a 2-bit token of 00 is 
generated and the video encoder 31 proceeds to the next 
5 tree in the decomposition. 

In general, when the video encoder 31 enters VOID 
mode, the video encoder will remain in VOID mode until it 
determines that the old block already contains four zero 
data values. In this case, there is no reason to continue 
10 in VOID mode writing zeros into that two-by-two block or 
the remainder of the blocks in the tree above because it 
is guaranteed that the old tree already contains zeros in 
these blocks. This is true because the old tree in frame 
store 35 has previously been encoded through the inverse 
15 quantizer 41. 

Because the video decoder 32 is aware of the tree 
structure of the decomposition, and because the video 
encoder 31 communicates with the video decoder 32 using 
tokens, the video decoder 32 is directed through the tree 
20 structure in the same manner that the video encoder 31 
traverses the tree structure in generating the compressed 
data stream 39. In this way the video decoder 32 writes 
the appropriate data values from the decompressed data 
stream 3 9 into the corresponding positions of the old data 
25 frame 40. The only flag needed by the video decoder 32 is 
the ozflag, which the video decoder obtains by reading the 
contents of old frame store 40. 

RATE CONTROL 
All transmission media and storage media have a 
3 0 maximum bandwidth at which they can accept data. This 
bandwidth can be denoted in terms of bits per second. A 
standard rate ISDN channel digital telephone line has, for 
example, a bandwidth of 64 kbits /sec. When compressing a 
sequence of images in a video sequence, depending upon the 
3 5 amount of compression used to compress the images, there 
may be a relatively high number of bits per second 
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generated. This number of bits per second may in some 
instances exceed the maximum bandwidth of the transmission 
media or storage device. It is therefore necessary to 
reduce the bits per second generated to insure that the 
5 maximum bandwidth of the transmission media or storage 
device is not exceeded. 

One way of regulating the number of bits per second 
introduced into the transmission media or storage device 
involves the use of a buffer. Frames having a high number 

10 of bits are stored in the frame buffer, along with frames 
having a low number of bits, whereas the number of bits 
per second passing out of the buffer and into the 
transmission media or storage device is maintained at a 
relatively constant number. If the buffer is sufficiently 

15 large, then it is possible to always achieve the desired 
bit rate as long as the overall average of bits per second 
being input into the buffer over time is the same or less 
than the maximum bit rate being output from the buffer to 
the transmission media or storage device. 

20 There is, however, a problem associated with large 

buffers in video telephony* For a large buffer, there is 
a significant time delay between the time a frame of video 
data is input into the buffer and time when this frame is 
output from the video buffer and into the transmission 

25 media or storage device. In the case of video telephony, 
large buffers may result in large time delays between the 
time when one user begins to speak and the time when 
another user begins to hear that speech. This time delay, 
called latency, is undesirable. For this reason, buffer 

30 size is specified in the standard H.261 for video 
telephony. 

In accordance with one embodiment of the present 
invention, a rate control mechanism is provided which 
varies the number of bits generated per frame, on a frame 
3 5 by frame basis. Due to the tree encoding structure 
described above, the number of bits output for a given 
frame is dependent upon the number of trees ascended in 
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the tree encoding process. The decisions of whether or 
not to ascend a tree are made in the lowest high frequency 
octaves of the tree structure. As can be seen from Figure 
25, there are relatively few number of blocks in the 
5 lowest frequency of the sub-bands, as compared to the 
number of blocks higher up in the sub-band trees. Given a 
particular two-by-two block in the tree structure, it is 
possible to decrease the value of Q in the equation for 
the threshold limit until that particular block is 

10 determined to be "interesting". Accordingly, a particular 
Q is determined at which that particular block becomes 
interesting • This process can be done for each block in 
the lowest frequency HG, GH and GG sub-bands. In this 
way, a histogram is generated indicating a number of 

15 two-by-two blocks in the lowest frequency of the three 
sub-bands which become interesting at each particular 
value of 0. 

From this histogram, a relationship is developed of 
the total number of two-by-two blocks in the lowest 

20 frequency of the three sub-bands which are interesting for 
a given value of Q. Assuming that the number of blocks in 
the lowest frequency octave of the three sub-bands which 
are interesting for a given value of Q is representative 
of the number of bits which will be generated when the 

25 tree is ascended using that given value of 0, it is 

possible to determine the value of Q at which a desired 
number of bits will be generated when that frame is coded 
with that value of Q. Furthermore, the greater the 
threshold is exceeded, the more bits may be needed to 

30 encode that tree. It is therefore possible to weight by Q 
the number of blocks which are interesting for a given 
value of Q, Finally, the Q values so derived should be 
averaged between frames to smooth out fluctuations. 

The encoder model RMS of the CCITT Recommendation 

3 5 H.261 is based on the DCT and has the following 

disadvantages. The rate control method used by RMS is a 
linear feedback technique. Buffer fullness is 
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proportional to Q. The value of Q must be adjusted after 
every group of blocks (GOB) to avoid overflow or underflow 
effects. This means that parts of the image are 
transmitted at a different level quality from other parts. 
5 During parts of the image where little change occurs, Q 
drops which can result in uninteresting areas being coded 
very accurately. The objects of interest are, however, 
usually the moving ones. Conversely, during the coding of 
areas of high activity, Q rises creating large errors in 

10 moving areas. When this is combined with a block based 
transform, the errors can become visually annoying. 

The method of rate control described in connection 
with one embodiment of the present invention uses one 
value of Q for the whole frame. The value of Q is only 

15 adjusted between frames. All parts of an image are 
therefore encoded with the same value of Q. Moreover, 
because the tree structure allows a relatively few number 
of blocks to be tested to determine an estimate of the 
number of bits generated for a given frame, more 

20 intelligent methods of varying Q to achieve an overall 
desired bit rate are possible than are possible with 
conventional compression/decompression techniques. 

TREE BASED MOTION ESTIMATION 
Figure 3 9 represents a black box 1 on a white 

25 background 2. Figure 40 represents the same black box 1 
on the same white background 2 moved to the right so that 
it occupies a different location. If these two frames of 
Figures 3 9 and 40 are encoded according to the above 
described method, there will be a tree in the wavelet 

3 0 decomposition which corresponds with the white-to-black 
edge denoted 3 in Figure 39. Similarly, there will be 
another tree in the wavelet decomposition of the image of 
Figure 4 0 which represents the white-to-black edge 3' the 
wavelet decomposition of the image of Figure 40. All of 

35 the data values corresponding to these two trees will be 
determined to be "interesting" because edges result in 
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interesting data values in all octaves of the 
decomposition. Moreover, due to the movement of the 
corresponding edge of black box 1, all the data values of 
the edges of both of these two trees will be encoded as 
5 interesting data values in the resulting compressed data 
stream. The method described above therefore does not 
take into account that it is the same data values 
representing the same white-to-black edge which is present 
in both images but which is just located at a different 
10 location. 

Figure 41 is a one dimensional representation of an 
edge. The corresponding Ibw path component data values 
are not illustrated in Figure 41. Data values 4, 5, 6, 7, 
8, and 9 represent the "interesting" data values of Figure 

15 41 whereas the other data values have low data values 
which makes those blocks "non-interesting". In the 
representation of Figure 41, data values 4 and 5 are 
considered a single two data value block. Similarly, 
blocks 6 and 7 are considered a single block and blocks 8 

20 and 9 are considered a single block. Figure 41, although 
it is a one dimensional representation for ease of 
illustration, represents the edge 3 of the frame of 
Figure 39. 

Figure 42 represents the edge 3« shown in Figure 40. 

2 5 Figure 42 indicates that the edge of black box 1 has moved 

in location due to the fact that the values 19 and 21 
which in Figure 41 were in the two data value block 8 and 
9 are located in Figure 42 in the two data value block 10 
and 11. In the encoding of Figure 42, rather than 

3 0 encoding and sending into the compressed data stream the 

values 19 and 21, a control code is generated which 
indicates the new locations of the two values. Although 
numerous control codes are possible, only one embodiment 
is described here. 
3 5 When the two data value block 10 and 11 is tested to 

determine whether it is interesting or not, the block 
tests to be interesting. The neighboring blocks in the 
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old fraiae are, however, also tested to determine whether 
the same values are present. In this case, the values 19 
and 21 are determined to have moved one two data value 
block to the right. An "interesting with motion" token is 
5 therefore generated rather than a simple "interesting" 
token. A single bit 1 is then sent indicating that the 
edge represented by values 19 and 21 has moved to the 
right. Had the edge moved to the left, a control code of 
0 would have been sent indicating that the edge 

10 represented by values 19 and 21 moved one location to the 
left. Accordingly, in the encoding of Figure 42, an 
"interesting with motion" token is generated followed by a 
single control code 1. The interesting values 19 and 21 
therefore need not be included in the compressed data 

15 stream. The video decoder receiving this "interesting 

with motion" token and this control code 1 can simply copy 
the interesting values 19 and 21 from the old frame into 
the indicated new location for these values in the new 
frame obviating the need for the video encoder to encode 

20 and transmit the actual interesting data values 

themselves. The same token and control codes can be sent 
for the two data values corresponding to a block in any 
one of the octaves 0, 1 or 2. 

Figure 4 3 represents the motion of the edge 3 of 

25 Figure 39 to a new location which is farther removed than 
is the new location of black box 1 shown in Figure 40. 
Accordingly, it is seen that the values 20 and 21 are 
located to the right at the two data value block 12 and 
13. In the encoding of this two data value block 12 and 

3 0 13 a token indicating "interesting with motion" is 
generated. Following that token, a control code 1 is 
generated indicating motion to the right. The video 
encoder therefore need not encode the data values 20 and 
21 but merely needs to generate the interesting with 

35 motion token followed by the motion to the right control 
code. When the video encoder proceeds to the two data 
values block 14 and 15, the video encoder need not send 
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the "interesting with motion" token but rather only sends 
the left control code 0, Similarly, when the video 
encoder proceeds to encode the two data value block 16 and 
17, the video encoder only sends the left control code o. 
5 The control codes for octaves 0 and 1 do not denote motion 
per se but rather denote left or right location above a 
lower frequency interesting block of the moving edge. 
This results in the video encoder not having to encode any 
of the actual data values representing the moved edge in 

10 the decomposition of Figure 43. 

The one dimensional illustration of Figures 41, 42 
and 43 is presented for ease of illustration and 
explanation. It is to be understood, however, that this 
method of indicating edge motion is used in conjunction 

15 with the above described two dimensional wavelet 
decomposition such as the two dimensional wavelet 
decomposition illustrated in Figure 25. The video encoder 
searches for movement of the data values representing an 
edge only by searching the nearest neighboring blocks of 

20 data values in the old frame. This method can be used to 
search many neighbors or a few neighbors depending on the 
application. The counter scheme described in connection 
with Figures 27 and 28 can be used to determine the 
locations of those neighboring blocks. Although the edge 

25 motion illustrated in connection with Figures 41, 42, and 
43 shows the very same data values being moved in the tree 
structure of the decomposition, it is to be understood 
that in practice the values of the data values 
representing the same edge may change slightly with the 

3 0 movement of the edge. The video encoder takes this into 
account by judging corresponding data values using a 
motion data value threshold to determine if corresponding 
data values in fact do represent the same edge. By 
indicating edge motion and not sending the edge data 

3 5 values themselves it is possible to both increase the 
compression and also improve the quality of the 
decompressed image. 
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SIX COEFFICIENT QUASI -DAUBECHIES FILTERS 
The Daubechies six coefficient filters are defined by the 
six low pass filter coefficients, listed in the table 
below to 8 decimal places. The coefficients are also 
5 defined in terms of four constants, a, j and e, where a 
= 0.10588942, )S = -0.54609641, y = 2.4254972 
and e = 3.0059769. 





Daubechies 
coefficients 


Alternative 
representation 


Normalized 
coefficients 


Converted 
Coefficients 


a 


0.33267055 


l/e 


0.2352336 


30 
128 


b 


0.80689151 


y/e 


0.57055846 


73 
128 


c 


0.45987750 


-)3(a+7)/e 


0.3251825 


41 
128 


-d 


-0.13501102 


j8(l - ay)/e 


-0.095467208 


-12 
128 


-e 


-0.08544127 


-ay/e 


-0.060416101 


-7 
128 


f 


0.03522629 


a/e 


0.024908749 


3 
128 



Table 4 

15 The coefficients (a, b, c, -d, -e, f) sum to ^ . The 
normalized coefficients sxim to l, which gives the filter 
the property of unity gain, which in terms of the 
alternative representation is equivalent to a change in 
the value of e to 4.2510934. These values can be 

20 approximated to any given precision by a set of fractions. 
In the example shown above, each of the normalized values 
has been multiplied by 128 and rounded appropriately, thus 
the coefficient a has been converted to . Filtering 

is therefore possible using integer multiplications rather 

25 than floating point arithmetic. This greatly reduces 
implementation cost in terms of digital hardware gate 
count and computer software speed. The following 
equations show a single step in the filtering process, the 
outputs H and G being the low and high pass outputs, 

3 0 respectively: 

H^=aDo+bDi+cD2"dD3-eD4+fD5 .(equ. 72) 
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Gi=-f Do-eDi+dD2+cD3-bD4+aD5 ( equ . 7 3) 

Hi and Gj are calculated as follows. Each data value D 
is multiplied by the relevant integer numerator (30, 73, 
41, 12, 7, 3) and summed as shown. The values of H and G 
5 are found by dividing the summations by the constant 128. . 
Because 128 is an integer power of 2, the division 
operation requires little digital hardware to implement and 
only simple arithmetic shift operations to implement in 
software. The filters H and G are quasi-perfect 
10 reconstruction filters: 

a+b+c-d-e+f=l (equ. 74) 

-f-e+d+c-b+a=0 (equ. 75) 

a+c-e=-| (equ. 76) 

f-d+b=^ (equ. 77) 

15 Equation 74 guarantees unity gain. Equation 75 

guarantees that the high pass filter will generate zero for 
a constant input signal. Equations 76 and 77 guarantee 
that an original signal once transferred can be 
reconstructed exactly. 

20 The following equations show a single step in the 

inverse transformation: 

D2=2(-eH,-bGo+cHi+dGi+aH2-fG2) (equ. 78) 

D3=2(fHo+aGo-dHi+cGi+bH2-eG2) (equ. 79) 

As for the forward filtering process, the interleaved 
25 H and G data stream is multiplied by the relevant integer 
numerator and sximmed as shown. The output D data values 
are found by dividing the summations by the constant 64, 
which is also an integer power of 2 . 

To calculate the first and last H and G values, the 
3 0 filter equations must be altered such that values outside 
the boundaries of the data stream are not required. For 
example, if Hq is to be calcualted using the six coefficient 
filter, the values D.i and D.2 would be required. Because 
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these values are not defined, a different filter is used at 
the beginning and end of the data stream. The new filters 
are determined such that the reconstruction process for the 
first and last two data values is possible. The following 
5 pair of equations show the filter used to calculate the 
first H and G values: 

Ho=cDo-dDi-eD2+fD3 (equ. 80) 

Go=dDo+cDi-bD2+aD3 (equ. 81) 

The last H and G values are calculated with: 
10 Hj^aDg+bDj+cDA-dDB (equ. 82) 

G5=fD8-eD9+dDA+cDB (equ. 83) 

In this case, these equations are equivalent to using 
the non-boundary equations with data values outside the 
data stream being equal to zero. The following inverse 
15 transform boundary filters are used to reconstruct the 
first two and last two data values: 

Do=2{ (c-^)^fo+(d+-|)Go+aif^-JfGj {equ. 84) 

Pi=2((-|-d)/fo+(c-^)Go+i?if^-eGi) (egu. 85) 

Dj,^2{'eII,'bG,^{c-^)H^^(d'-^)G^) {egu. 86) 

Z?3=2(fif4+a(?4-(d+-|)H5+(c-^)G5) (egu. 87) 



INCREASING SOFTWARE DECOMPRESSION SPEED 
A system is desired for compressing and decompressing 
video using dedicated digital hardware to compress and 

2 0 using software to decompress. For example, in a video mail 
application one user uses a hardware compression expansion 
card for an IBM PC personal computer coupled to a video 
camera to record a video message in the form of a video 
message file. This compressed video message file is then 

25 transmitted via electronic mail over a network such as a 
hardwired network of an office building. A recipient user 
receives the compressed video message file as he/she would 
receive a normal mail file and then uses the software to 
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decompress the compressed video message file to retrieve 
the video mail. The video mail may be displayed on the 
monitor of the recipient's personal computer. It is 
desirable to be able to decompress in software because 
5 decompressing in software frees multiple recipients from 
purchasing relatively expensive hardware. Software for 
performing the decompression may, for example, be 
distributed free of charge to reduce the cost of the 
composite system. 

10 In one prior art system, the Intel Indeo video 

compression system, a hardware compression expansion card 
compresses video and a software package is usable to 
decompress the compressed video. This system, however, 
only achieves a small compression ratio. Accordingly, 

15 video picture quality will not be able to be improved as 
standard personal computers increase in computing power 
and/ or video bandwidth. 

The specification above discloses a method and 
apparatus for compressing and decompressing video. The 

20 software decompression implementation written in the 
programming language C disclosed in Appendix A only 
decompresses at a few frames per second on a standard 
personal computer at the present date. A method capable of 
implementation in software which realizes faster 

25 decompression is therefore desirable. 

A method for decompressing video described above is 
therefore modified to increase software execution speed. 
Although the b=19/32, a=ll/32, c=5/32 and d=3/32 
coefficients used to realize the high and low pass forward 

30 transform perfect reconstruction digital filters are used 
by dedicated hardware to compress in accordance with an 
above described method, the coefficients b=5/8, a=3/8, 
c=l/8 and d=l/8 are used to decompress in software on a 
digital computer. The coefficients are determined as shown 

35 in the table below. 
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a = 


l+x/3 

y — * 




8 


b = 






8 


c = 


3-/3 




8 


d = . 






8 
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= .3415(8) = 2.732 = 2 

8 

= .5915(8) = 4.732 = 1 

8 

= .1585(8) = 1.268 = 1 

8 



8 

^ Table 5 

An even start inverse transform digital filter in 
accordance with the present embodiment is: 

Do = 4[(b-a)Ho + (c-d)Go] (equ. 88) 

where, for example. Do is a first inverse transformed data 
10 value indicative of a corresponding first data value of a 

row of the original image, and where and Go are first low 

and high pass component transformed data values of a row of 

a sub-band decomposition. 

An odd end inverse transform digital filter in 
15 accordance with the present embodiment is: 

Db = 4[(c+d)H5 - (a+b)Gj] (equ. 89) 

where, for example, is a last inverse transformed data 
value indicative of a corresponding last data value of a 
row of the original image, and where H, and G, are last low 
20 and high pass component transformed data values of a row of 
a sub-band decomposition. 

An odd interleaved inverse transform digital filter in 
accordance with the present embodiment is: 

= iH(x-l)-|G(x-l) + 2H(x) + lG(x) (equ. 90) 

2 5 An even interleaved inverse transform digital filter 

in accordance with the present embodiment is: 

^ = -iH(^-l)+|G(x-l) + |H(x)-.lG(x) (eg,,. 

As indicated by equations 90 and 91, the odd and even 
interleaved inverse transform digital filters operable on 
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the same H and G values of the sub-band decomposition but 
generate the odd and even inverse transformed data values 
in a row between the even start and odd end filters of 
equations 88 and 89. 
5 Using the above even start, odd end, odd interleaved 

and even interleaved inverse transform digital filters, a 
frame rate of approximately 15 frames/ second is realizable 
executing on a Macintosh Quadra personal computer having a 
68040- microprocessor. Digital filters using the 

10 coefficients b=5/8, a=3/8, c=l/8 and d=l/8 may also be 
realized in dedicated digital hardware to reduce the cost 
of a dedicated hardware implementation where a slightly 
lower compression ratio is acceptable. 

To further increase software decompression speed when 

15 decompressing video on a digital computer, only two octaves 
of inverse transform are performed on video which was 
previously compressed using three octaves of forward 
transform. This results in the low pass component of the 
octave 0 decomposition. The low pass component of the 

20 octave 0 decomposition is a non-aliased high quality 
quarter size decimated version of the original image. 
Rather than performing octave 0 of inverse transform^ 
horizontal linear interpolation is used to expand each row 
of data values of the low pass component of the octave 0 

25 decomposition into twice the number of data values. To 
expand the number of rows, each row of interpolated data 
values is replicated once so that the total number of rows 
is doubled. In. some embodiments, interpolation techniques 
other than linear interpolation are used to improve image 

30 quality. For example, spline interpolation or polynomial 
interpolation may be used. 

To further increase software execution speed when 
decompressing video, luminance data values are decompressed 
using the digital filters of equations 88, 89, 90 and 91. 

3 5 The chrominance data values, on the other hand, are 

decompressed using even and odd interleaved reconstruction 
filters having a fewer number of coefficients than four. 
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In one embodiments, two coefficient odd interleaved Haar 
and even interleaved Haar filters are used. The even 
interleaved Haar reconstruction filter is: 

Do = (Ho + Go) (equ. 92) 

5 The odd interleaved Haar reconstruction filter is: 

Di = (Ho - Go) (equ. 93) 

Because the above Haar filters each only have two 
coefficients, there is no boundary problem as is addressed 
in connection with an above-described method. Accordingly, 

10 another start inverse transform digital filter and another 
end inverse transform digital filter are not used. 

To increase software execution speed still further 
when decompressing video, variable-length SEND and 
STILL_SEND tokens are used. Data values are encoded using 

15 a Huffman code as disclosed above whereas tokens are 
generated in variable-length form and appear in this 
variable-length form in the compressed data stream. This 
allows decompression to be performed without first 
calculating flags. 

20 Figure 44 shows variable-length tokens used for 

encoding and decoding in accordance with some embodiments 
of the present invention. Because transitions from SEND 
mode to STOP mode or from STILL_SEND mode to STOP mode 
occur most frequently of the transitions indicated in 

25 Figure 44, the corresponding tokens consist of only one 
bit. 

In general, if an area changes from white to black in 
two consecutive frames of a video sequence and if the 
encoder is in LPF_SEND mode, then the difference between 
3 0 the corresponding data values after quantization will be 
much larger than 37. 37 is the maximum number encodable 
using the specific Huffman code set forth in connection 
with an above-described method. Because such a large 
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change in data value cannot be encoded, an artifact will 
be generated in the decompressed image for any change in 
quantized data values exceeding 37. Accordingly, the 
Huffman code in the table below is used in accordance with 
5 one embodiment of the present invention. 



HUFFMAN CODE 


* A « «^ 


0 


0 

w 


isl 


±1 


ISOl 


±2 


IsOOl 


±3 


IsOOOl 


±4 


ISOOOOl 


±5 


IsOOOOOl 


±6 


ISOOOOOOl 


±7 


IsOOOOOOO (|qindex|-8) 


±8 . . ±135 



Table 6 



In Table 6 above, the value {|gij2dex| - 8) is seven bits 
in length. The s in Table 6 above is a sign bit. 
This embodiment is not limited to video mail 

20 applications and is not limited to systems using dedicated 
hardware to compress and software executing on a digital 
computer to decompress. Digital circuitry of a general 
purpose digital computer having a microprocessor may be 
used to decode and inverse transform a compressed image 

25 data stream. The coefficients 5/8, 3/8, 1/8 and 1/8 

independent of sign may be the four coefficients of four 
coefficient high and low pass forward transform perfect 
reconstruction digital filters used to transform image 
data values into a sub-band decomposition. 
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Although the present invention has been described by- 
way of the above described specific embodiments, it will be 
understood that certain adaptations, modifications, 
rearrangements and combinations of various features of the 
5 specific embodiments may be practiced without departing 
from the scope of the invention. Filters other than the 
four coefficient quasi-Daubechies filters can be used. In 
some embodiments, six coefficient quasi-Daubechies filters 
are used. Embodiments of this invention may, for example, 

10 be practiced using a one-dimensional tree structure, a two- 
dimensional tree structure, or a three-dimensional tree 
structure. Rather than testing whether or not a two-by-two 
block of data values is interesting, blocks of other sizes 
may be used. Three-by- three blocks of data values may, for 

15 example, be tested. Blocks of different sizes may be used 
in different octaves of a decomposition. In certain 
embodiments, there are different types of interesting 
blocks. The use of tokens in combination with use of a 
tree structure of a decomposition to reduce the number of 

20 data values encoded may be extended to include other tokens 
having other meanings. The "interesting with motion" token 
is but one example. Tree structures may be used in 
numerous ways to estimate the activity of a frzme for rate 
control purposes. Numerous boundary filters, thresholds, 

25 encoder and decoder modes, token schemes, tree traversing 
address generators, quantization schemes, Huffman-like 
codes, and rate control schemes will be apparent from the 
specific embodiments. The above-described specific 
embodiments are therefore described for instructional 

30 purposes only and are not intended to limit the invention 
as set forth in the appended claims. 
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source/Bits, c 



/* 

Reading and writing bits from a file 

*/ 

#include " . . /include/ xwave . h " 
#include " . ./include/Bits.h" 

Bits bopen(name,mode) 

String name, mode; 

{ 

Bits bits=(Bits)MALLOC(sizeof(BitsRec)); 

if((bits->fip=fopen(name,mode)) ==(FILE*)0)Eprintf("Failedto open binary 
file\n"); /*change*/ 

bits- > bufsize=0; /*new*/ 

bits- > buf = (unsigned char)0; /*new*/ 

retum(bits); 

} 

void bclose(bits) 
Bits bits; 
{ 

if(fciose(bits- > fp)! =0) Eprintf("FaiIed to close binary file\n"); /*was: 
fclose(biis->fp)*/ 
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XtFree(bits); 

} 

void bread(bytes,num,bits) 

unsigned char ♦bytes; 
int mim; 
Bits bits; 

{ 

int byte=0, bit=0,pull,b; 

bytes [byte] =0; 
while(num>0) { 

if (bits- > bufsize = =0) { 

pull=fgetc(bits->fp); 
if(pull==EOF) 
{ 

/*printf("EORn"); Previously didn't check for 
EOF:bits- > buf =(unsigned char)fgetc(bits- > fp)*/ 

for(b =byte + 1 ;b < num/8 + 1 ;b + +) 
bytes(b]=(unsigned char)0; 

return; 
} 

bits- > buf = (unsigned char)pull; 
bits- > bufsize =8; 

} 

bytes[byte]=((l&bits->buf)!=0)?bytes[byte] i(l< <bit):bytes[byte]&~(l< <bit); 

if (bit==7) { bit=0; byte+ + ; bytes[byte] =0; } /* was bit= =8 */ 

else bit+ + ; 

bits- > buf =bits- > buf > > 1 ; 
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bits->bufsize-; 
num-; 

} 

} 

void bwrite(bytes,nuin,bits) 

unsigned char *bytes; 
int num; 
Bits bits; 

{ 

int byte=0, bit=0; 
unsigned char xfer; 

while(num>0) { 

if (bit==0) { 

xfer = bytes [byte -h +]; 



wo 94/23385 



PCT/GB94/00677 



- 93 - 

source/CoIor.c 
/* 

* Color routines 
*/ 

#include " . ./include/xwave.h" 
#defme GAMMA 1.0/2.2 

int 

VisualClass[6] = {PseudoColor,DirectColor,TrueColor,StaticCoIor,GrayScale,StaticGray} ; 

/* Function Name: Range 

* Description: Range convert for RGB/YUV calculations 

* Arguments: old_x - old value (O..old_r-1) 

* old_r - old range <new_r 

* new_r - new range 

* Returns: oId_x scaled up to new range 
*/ 

int Range(old_x,old_r,new_r) 

int old_x, old_r, new_r; 

{ 

retiim((old_x*new_r)/oId_r) ; 

} 

/* Function Name: Gamma 

* Description: Range convert with Gamma correction for RGB/YUV calculations 

* Arguments: as Range + 

* factor - gamma correction factor 
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old_x gamma corrected and scaled up to new range 

int Ganuna(old_x,oId_r,new_r,factor) 

int old_x, old_r, new_r; 
double factor; 

{ 

retum((int)((double)new_r*pow((double)old_x/(double)old_r,factor))); 

} 

/* Function Name: Dither 

* Description: Range convert with dithering for RGB/YUV calculations 

* Arguments: levels - output range (0..1evels-l) 

* pixel - pixel value (0. . 1< < 8 +precision-l) 

* x» y - dither location 

* precision - pixel range (0. . 1< < 8 +precision-l) 

* Returns: dithered value (0..1evels-l) 
*/ 



* Returns: 
*/ 



int Dither(levels,pixel,x,y,precision) 
int pixel, levels, x, y, precision; 



int bits = 8 + precision, 

pixlev=pixel*levels. 



value =(pixlev> >bits)+((pixlev-(pixlev&(-l< <bits)))> > precision > global- >dither[x 
&15][yiSLl5]?l:0); 
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retum(value > = levels?levels-l : value) ; 

} 

/* Function Name: ColCvt 

* Description: Converts between RGB and YUV triples 

* Arguments: src - source triple 

* dst - destination triple 

* rgb^yuv - convert direction RGB- > YUV True 

* max - range of data (max-1.. -max) 

* Returns: alters dst. 

*/ 

void ColCvt(src,dst,rgb_yuv,niax) 

short src[3], dst[3]; 
Boolean rgb_juv; 
int max; 

{ 

double rgb_yuv_mat[2][3][3] = {{ 
{0.299,0.587,0.114}, 
{-0.169,-0.3316,0.5}, 
{0.5,-0.4186,-0.0813} 

}.{ 

{1,0,1.4021}, 

{1,-0.3441,-0.7142}, 

{1,1.7718,0} 

}}; 

int i, channel; 



for(channel=0;channei<3;channei-i-4- ) { 
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double suin=0.0; 

for(i=0;i<3;i++) 
sum + = (double)(src[i])*rgb_yuv_mat[rgb_yuv?0: 1] [channel] [i] ; 

dst[channel] =(int)sum < -niax?-max:(int)sum > max-l?max-l :(short)sum; 

} 

} 

/* Function Name: CompositePixel 

* Description: Calculates pixel value from components 

* Arguments: frame - Frame to be drawn on 

* X, y - coordinate of pixel in data 

* X, Y - coordinate of pixel in display 

* Returns: pixel value in colormap 
*/ 

int CompositePixel(frame,x,y,X,Y) 

Frame frame; 

int X, y, X, Y; 

{ 

Video vid=ft^e-> video; 

int channel =frame-> channel, pixel, value =0; 

if (channel! =3) { 

pixel = (int)vid- > data[channel] [frame- > frame] [Address2(vid,channel,x,y)] + ( 128 < < vid- 
> precision); 

value =Dither(globaI"- > leveIs,pixel,X,Y,vid-> precision); 
} else for(chamiel=0;channel<3;channel + -f ) { 
int 
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levels = vid- > type = =RGB?global- > rgbjevels: global- > yuvjevels [channel] ; 

pixel = (int)vid- >data[channel] [frame- > frame] [Address(vid,channel,x,y)] -f(128 < < vid- 
> precision), 

value =levels*value -fDither(levels,pixel,X,Y, vid- > precision); 

} 

retum( value); 

} 

void InitVisualO 
{ 

Display *dpy = XtDisplay (global- > toplevel) ; 

int scm=XDefaultScreen(dpy), class=0, depth=8, map, i, r, g, b, y, u, v; 
String 

VisualNames[6] = { "PseudoColor " , "DirectColor" , "TrueColor " , "StaticColor " /Grayscale " , 
"StaticGray"}; 

XColor color; 

global- > visinfo=(XVisualInfo *)MALLOC(sizeof(XVisualInfo)); 
while(depth>0 

&&!XMatchVisualInfo(dpy,scrn,depth,VisualClass[class],global->visinfo)) 
if (class ==5) {class =0; depth--;} else class+ + ; 
Dprintf("Visual: %s depth %d\n",VisualNames[class],depth); 
global- > palettes = (Palette)MALLOC(sizeof(PaletteRec)) ; 
strcpy(global- > palettes- > name, "Normal"); 
global- > palettes- > next == NULL; 
global- > no_paIs = 1 ; 
switch(global- > visinfo- > class) { 
case TnieCoIor: 
case DirectColor: 
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case StaticColor: 
case Grayscale: 

fprintf(stderr/Unsupponed visual type: %s\ii",VisualNames[class]); 
exitO; 
break; 
case Pseudocolor: 

global- > levels = global- > visinfo- > colonnap_size; 

global- > rgb Jevels =(int)pow((double)gIobal- > levels ,1.0/3.0); 

for(inap=0;inap<2;map+-f ) { /* rgb non-gamma and gamma maps */ 



global- > cmaps[map] =XCreateColonnap(dpy,XDefaultRootWmdow(dpy), global- > visiafo 
- > visual, AllocAll) ; 

for(r =0;r < global- > rgb Jevels;r+ -f ) 

for(g =0;g < global- > rgb Jevels;g -h -h) 

for(b =0;b < global- > rgb Jevels;b + +) { 

color.pixel =(r*global- > rgb Jevels +g)*global- > rgbjevels+b; 

coIor.red=(map&l)?Gamma(r,giobal- > rgbJevels,65536,GAMMA):Range(r,global- > rg 
bjevels,65536); 

coIor.green=(map&l)?Gamma(g,global- > rgbJeveIs,65536,GAMMA):Range(g, global- > 
rgbjevels,65536); 

color.blue=(map&l)?Gamma(b,global- > rgbJevels,65536,GAMMA):Range(b.global- > r 
gbjevels,65536); 

color. flags =DoRed | DoGreen | DoBlue; 
XStoreColor(dpy, global- > cmaps[map],&coIor); 

} 

CO lor. pixel = global- > levels- 1 ; 
color. red = 255 < <8; 
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color.green=255< <8; 
color.biue=255< <8; 
color.flags=DoRsd | DoGreen | DoBlue; 
XStoreColor(dpy, global- > cmaps[niap],&color); 

} 

for(inap=2;map<4;inap++) { /* mono non-gamma and gamma maps */ 

global- > cmaps[map] =XCreateCoIormap(dpy ,XDefaultRootWmdow(dpy),global- > visinfo 
-> visual, AllocAll); 

for(i=0;i < global- > visinfo- > colonnap_size;i+ +) { 
color.pixel=i; 



color.red=(map&l)?Gamma(i,global- > levels,65536,GAMMA):Range(i,global- > levels,6 
5536); 

color.green=(niap&l)?Gamma(i,global- > Ievels,65536,GAMMA):Range(i,global- > levels 
,65536); 

color.blue=(map&l)?Ganraia(i,global->leveIs,65536,GAMMA):Range(i,global^ 
65536); 

color. flags =DoRed | DoGreen \ DoBlue; 
XStoreColor(dpy .global- > cmaps[map] ,&color); 

} 

} 

global- > yuvjevels[0] =(int)pow((double)global- > levels, 1 .0/2,0); 
global- > yuv_levels[l] =(int)pow((double)global- > levels, 1.0/4,0); 
global- > yuv_levels[2] =(int)pow((double)global- > levels, 1 .0/4.0); 
for(map=4;map<6;map++) { /* yuv non-gamma and gamma maps */ 



global- > cmaps[map] =XCreateColormap(dpy ,XDefaultRootWindow(dpy),gIobaI- > visinfo 
-> visual, AllocAll) ; 

for(y =0;y < global- > yuv_levels[0] ;y + -f ) 



wo 94/23385 PCT/GB94/00677 

- 100 - 

for(u =0;u < global- > yuv_levels[l] ;u + +) 

for(v =0; V < global- > yuv_levels[2] ; v + -t-) { 
short 

src[3] ={(short)(Range(y,global- > yuv_levels[0].65536)-32768). 



(short)(Range(u,global->yuv_levels[l],65536)-32768), 

(short)(Range(v,global->yuv_leveis[2],65536)-32768)},dst[3]; 

ColCvt(src ,dst, False,65536/2) ; 

color.pixel=(y*global- > yuv_levels[l] -t-u)*global- > yuv_levels[2] +v; 

coIor.red=(inap&l)?Gaiimia((int)dst[0]-H32768,65536,65536,GAMMA):(mt)dst[0]+3276 
8; 

color.green=(map&l)?Gamnm((int)dst[l]+32768,65536,65536,GAMMA):(int)dst[l]-»-32 
768; 

color.blue=(map&l)?Gamm((int)dst[2]+32768,65536,65536.GAMMA):(int)dst[2]+327 
68; 

color.flags=DoRed | DoGreen | DoBlue; 



XStoreColor(dpy .global- > cmaps[inap] ,&color) ; 

} 

coior.pixel = global- > levels- 1 ; 

color. red = 255 < <8; 

color.green=255< <8; 

color. blue = 255 < <8; 

color. flags=DoRed | DoGreen | DoBlue; 

XStoreColor(dpy, global- > cmaps[map],&color); 
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global- > palettes- > mappings = NULL; 
break; 
case StaticGray: 

global- > levels = 1< < depth; 

for(i=0;i < 6;i-h +) global- > cmaps[i] =XDefaultColonnap(dpy ,scm); 
color, pixel =0; 

XQueryColor(dpy,XDefaxxltColormap(dpy,scm),&color); 
if (color.red==0 && color. green==0 && color.blue==0) 
global- > palettes- > mappings = NULL; 
else { 

global- > palettes- > mappings =(Map)MALLOC(si2eof(MapRec)); 
global- > palettes- > mappings- > start = 0 ; 
global- > palettes- > mappings- > finish = global- > levels- 1 ; 
global- > palettes- > mappings- > m =- 1 ; 
global- > palettes- > mappings- > c=global- > levels-1 ; 
global- > palettes- > mappings- > next = NULL; 

} 

break; 



ChannelCmap(channel,type,gamma) 



} 

} 

Colormap 



int channel; 
VideoFormat type; 
Boolean gamma; 

{ 

Colormap cmap; 

if (channel! =3 | | type==MONO) { 

if (gamma) cmap = global- > cmaps[giobal- > cmaps[2] = =NULL?3 :2] ; 
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else cmap =global- > cmaps [global- > cmaps[3] = =NULL?2:3] ; 
} else if (type = =RGB) { 

if (gamma) cmap=global->cmaps[global->cmaps[0] = =NULL?l:0]; 

else cmap =gIobal- > cmaps[global- > cmaps[l] = =NULL?0: 1] ; 
} else { 

if (gamma) cmap =globaI- > cmaps[gIobal- > cmaps[4] - =NULL?5 :4] ; 
else cmap =global- > cmaps[gIobal- > cmaps[5] = =NULL?4:5] ; 

} 

retiirn(cmap); 

} 
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source/Convert.c 



#include " . ./include/xwave.h" 
short cti(c) 
char c; 

{ 

retum((short)(c)*-128); 

} 

char itc(i) 
shon i; 

{ 

static int errors =0; 
if (i<-128 II i>127) { 
if (errors= =99) { 

DprintfC'lOO Conversion overflows\n''); 
errors =0; 
} else errors+ + ; 
i=(i<-128)?-128:127; 

} 

renim((char)(i*128)); 

} 
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soiirce/Convolve3*c 



/* 

2D wavelet transform convolver (fast hardware emulation) 
New unproved wavelet coeffs : 11 19 5 3 

♦/ 

#include " . ./include/xwave.h" 
/* Function Name: Round 

* Description: Rounding to a fixed number of bits, magnimde rounded down 

* Arguments: niunber - number to be rounded 

* bits - shifted bits lost from nxmiber 

* Returns: rounded number 
*/ 

short Round(number,bits) 

int number; 
int bits; 

{ 

if (bits==0) retuni((short)number); 

else return((short)(number+(l< <bits-l)-(number<0?0:l) > > bits)); 

} 

/* Fimction Name: Convolve 

* Description: Perform a wavelet convolution on image data 

* Arguments: data - data to be transformed 

* dim - convolution direction 
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+ 



size - size of image data 

oct_src, oct_dst - initial and final octave numbers 



* 



Returns: 



data altered 



void 



Convolve(data,dim,size,oct_src,oct_dst) 



short *data; 

Boolean dim; 

int size[2], oct^src, oct^dst; 



int tab[4][4], addr[4] = {-l,-l,-l,-l}, index, mode, i, j, oct, orient, 
area = si2e[0] *size[l] ; 



int windows[ 12] [5] = { 

{1,2,3,-4,2}, /* 0 - normal forward 0 ♦/ 

{4,-3,2,1,3}, /* 1 - normal forward 1 */ 

{1,-2,3,4,2}, /* 2 - normal reverse 0 ♦/ 

{4,3,2,-1,3}, /* 3 - normal reverse 1 */ 

{2,3,4,-4,3}, /* 4 - end forward 0 */ 

{4,-4,3,2,4}, /* 5 - end forward 1 */ 

{2,2,3,-4,2}, /* 6 - start forward 0 */ 

{4,-3,2,2,3}, /* 7 - start forward 1 */ 

{3,-4,-4,3,4}, /* 8 - break reverse end dim==False*/ 

{4,3,-3,-4,3}, /* 9 - break reverse start dim===False */ 

{-3,-4,4,3,4}, /* 10 - break reverse end dim==True */ 

{-4,3,3,-4,3}, /♦ 11 - break reverse start dim==True */ 
}, win[3]; /* 12 - no calculation */ 

for(oct=oct_src;oct! =oct_dst;oct-h=(fwd_rev?l:-l)) { 
long shift=oct-{fwd_rev?0: 1); 



Boolean 



fwd_rev=oct src<oct dst; 
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f or(orient = 0 ; orient < 2 ; orient + + ) { 

Boolean x_y = fwd_rev = = (orient = = 0) ; 

for (index=0;index<(area> > (shift << l));mdex-h+) { 

long major, minor, value, valuex3, valuexll, valuexl9, valuexS; 

major=index/(size[x_y?0:l] > > shift); 
minor =index-major*(size[x_y?0:l]> > shift); 
for(j =0;j < 3;j -f +) winOl = 12; 
switch(minor) { 
case 0: break; 

case 1: if (!fwd_rev) win[0]=dim?ll:9; break; 

case 2: if (fwd^rev) { wm[0]=6; win[l]=7; }; break; 

default: 

if (minor-hl = =:si2e[x_y?0:l]> >shift) { 

if (fwd_rev) { win[0]=4; win[l]=5; } 

else { win[0]=2; win[l]=3; win[2]=dim?10:8; } 

} else if (fwd_rev) { 

if ((l&minor) = =0) { win[0]=0; win[l] = l; } 

} else { 

if ((l&minor)!=0) { win[0]=2; win[l]=3; } 

} 

} 

addr[3&index] = (x_y?minor: major) +sizelO] *(x_j?major:minor) < < shift; 
value = (int)data[addr[3&index]] ; 

valuex5= value + (value < <2); 
valuex3= value + (value < <1); 
valuexl 1 =valuex3 -f-(value < < 3); 
valuexl9=valuex3-h(value< <4); 
tab[3&index][3]=fwd_rev || !dim?valuex3: valuexl 9; 
tabi3&index][2]=fwd_rev jj dixn?valuex5: valuexll; 
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tab[3&index][l]=fwd_rev |[ !dim?valuexl9:valuex3; 
tab[3&index][0]=fwd_rev |j dim?valuexll:valuex5; 
for0=0;j<3 && win|j]!=12;j + +) { 
int conv=0; 

for(i=0;i<4;i++) { . 

int wave=dim?3-i:i; 



conv+=negif(0>windows[winDl][wave],tab[3«&index+abs(windows[wm[il][i])][wave]); 
} 

data[addr[3&index + windows[win[j]] [4]]] =Round(conv,fwd_rev?5 : win[j] > 7?3 :4); 
} 

}}} 

} 
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souTce/Copy.c 



/* 

Copy video, includes direct copy, differencing, LPF zero, LPF only, RGB-YUV 
conversion and gamma correction 
*/ 

#include " . ./include/xwave.h" 
#include "Copy.h" 
extern int ShiftQ; 
extern void CoICvtQ; 

void CopyVideoCtrl(w,closure,call_data) 

Widget w; 
caddr_t closure, call_data; 

{ 

CopyCtrl Ctrl = (CopyCtrl)closure; 

Video new =CopyHeader(ctrl-> video), src=ctrl-> video; 

int frame, channel, i, x, y, X, Y, map[256]; 

if (global- > batch= =NULL) 
Ctrl- > mode = (int)XawToggleGetCurTent(ctrl- > radioGroup); 
strcpy(new- > name,ctrl- > name); 
strcpy(new- > files, new- > name); 
switch(ctrl- > mode) { 
case 1 : Dprintf("Direct copy\n"); 

new- > UVsample[0] =ctrl- > UVsample[0] ; 

new- > UVsample[l] =ctrl- > UVsampIe[l] ; 
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break; 

case 2: Dprmtf("Differences\ii"); 
break; 

case 3 : Dprmtf( "LPF zero\n"); 

break; 

case 4: Dprmtf("LPF only\n"); 

new- > trans.type =TRANS_None; 



new- > si2e[0] =new- > size[0] > > new- > trans. wavelet. space[0]; 

new- > size[l] =new- > size[l] > > new- > trans.waveiet.space[0]; 

break; 

case 5: DprintfCRGB-YUVXn"); 

new- > type = new- > type = = YUV7RGB : YUV; 
new- > UVsample[0] =0; 
new- > UVsample[l] =0; 
break; 

case 6: Dprintf(" Gamma conversionVn"); 

new- > gamma = !new-> gamma; 
for(i=0;i<256;i++) 
map[i] =gamma(i,256,new->gamma?0.5:2.0); 

break; 

} 

if (new->disk==True) SaveHeader(new); 
for(frame =0;firame < new- > size[2] ;frame + +) { 

GetFrame(src,frame); 

Ne wFrame(ne w , frame) ; 

switch(ctrl- > mode) { 

case 1 : 

for(channel =0;channel < (new- > type= =M0N0?1 :3);channel + +) { 

int size=Size(new,channel,0)*Si2e(new, channel,!); 
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for(y =0;y < Size(new,charmel, l);y + +) 

for(x=0;x<Size(new,channeI,0);x+ +) 

new- > data[charaiel][frame][x-l-Size(new,chaimel,0)*y] =src- > data[chamielj [frame] [Shift( 
x,src->type==YUV && 

channel! =0?new-> UVsample(0]-src- > UVsample[0]:0) -l-Size(src,chamiel,0)*Shift(y,src- 
>type==YUV && channel! =0?new->UVsample[l]-src->UVsampIe[l]:0)]; 

} 

break; 

case 2: 

for(channel =0;chamiel < (new- > type= =M0N0?1 :3);chaxmel + +) { 

int 

size = Si2e(new,channel,0)*Si2e(new,channel, 1) ; 

for(i=0;i<si2e;i++) 

new- > data[channel] [frame] [i] = src- > data[channel] [frame] [i]-(frame = =0?0: src- > data[ch 
annel][frame-l][i]); 

} 

break; 

case 3: 

for(channel =0;channel < (new- > type= =M0N0?1 :3);channel + +) { 

int 

size = S ize(new , channel, 0) *Size(new , channel , 1 ) ; 

for(i=0;i<size;i++) { 

x=i%Size(new,channel,0); 

y = i/Size(new,channel,0); 

if 

(x%(l < < new- > trans. wavelet. space[new-> type ==YUV && channel! =0?1:0]) = =0 
&&: y%{l < < new- >trans.wavelet.space[new-> type ==YUV && 
channel! =0?1:0]) = =0) 
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new- > data[chaimel] [frame] [i] =0; 

else 

new- > datafchannel] [frame] [i] = src- > data[channel] [frame] [i] ; 

} 

} 

break; 

case 4: 

for(cliannel=0;channel < (new- > type= =M0N0?l:3);channeH- +) { 

int 

size = Size(new,chamiel,0)*Si2e(new,chamiel, 1) ; 

for(i=0;i<size;i+-l-) { 

X = i%Size(new,channel,0); 

y =i/Size(new,chaimel,0); 

new- > data[channel] [frame] [i] = src- > data[chamiel] [frame] [(x +(y < < new- > trans. wavele 
t.space[0])*Size(new,channel,0)) < <new->trans.waveIet.space[0]]; 

} 

} 

break; 

case 5: for(X =0;X < new- > size[0] ;X -I- +) 
for(Y=0;Y<new->size[l];Y+-l-) { 

short src_triple[3], dst_triple[3]; 

for(channel=0;chamiel < 3;channel+ 

src_triple[channel] =src- > data[channel] [frame] [Address(src,channel,X, Y)] ; 

ColCvt(src_tripIe,dst_triple,new->type= =YUV,1 < <7+new-> precision); 

for(chamiel=0;chamiel< 3 ;channel + +) 

iEw->daBg3TmprmiAdteE(^4H^^ 

} 

SUBSTITUTE SHEET (RULE 26) 
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break; 

case 6: 

for(channel=0;channeI < (new- > type= =M0N0?1 :3);chaiinel-l- +) { 

int 

size=Si2e(new,channeI,0)*Si2e(new,chaiuiel,l); 

for(i=0;i<size;i-f+) 
new- > data[channel] [frame] [i] = map[src- > data[chamiel] [frame] [i] + 1 28]- 128 ; 

} 

break; 

} 

if (frame >0) FreeFrame(src,frame-l); 
SaveFrame(ne w , frame) ; 
FreeFrame (new , frame) ; 

} 

FreeFrame(src,src- > size[2]-l); 
new- > next =global- > videos; 
global- > videos = new; 

} 

void BatchCopyCtrl(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

CopyCtrl ctrl=(CopyCtrl)closure; 

if (Ctrl- > video = =NULL) 
Ctrl- > video = Find Video(ctrI- > src_name,global- > videos); 
Copy VideoCtrlfw , closure , calldata) ; 

} 
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CopyCtrl InitCopyCtrl(name) 
String name; 

{ 

CopyCtrl Ctrl = (CopyCtrl)MALLOC(sizeof(CopyCtrlRec)); 

strq)y(ctrl- > src_name,name); 
strq)y(ctrl- > name,name) ; 
ctrl->mode=l; 
retiim(ctrl); 

} 

#defme COPYJCONS 17 

void CopyVideo(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video video = (Video)closure; 

CopyCtrl ctrl=ImtCopyCtrl(video- > name); 

Numlnput UVinputs = (NumInput)MALLOC(2*sizeof(NumInputRec)) ; 
Message msg =NewMessage(ctrl- > name,NAME_LEN); 
XtCallbackRec destroy_calin = { 

{Free,(caddrj)ctrl}, 

{Free, (caddr_t) UVinputs} , 

{CloseMessage, (caddr_t)nisg} , 

{NULL,NULL}, 

}; 

Widget sheii=SheiiWidget("copy_video%w,SWjDeiow,NULL,destroy_cali), 
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fonn=FormatWidget("cpy_form",sheU), widgets [COPYJCONS]; 
Fonnltem itemsO = { 

{ ''cpy_caiicer , "cancel" ,0,0,FW_icon,NULL} , 
{ "cpy_confirm" , "confirm" , 1 ,0,FW_icon,NULL} , 
{"cpy_tiUe","Copy a video",2,0,FW_label,NULL}, 
{"cpy_vid_lab", "Video Name: ",0,3,FWJabel,NULL}, 
{"cpyjext" ,NULL,4,3,FW_text,(String)msg} , 

{"cpy_copy","copy",0,5,FW_toggle,NULL}, 

{"cpy_difr,"difr.6,5,FW_toggle,(String)6}, 

{ "cpy Jpf_zero" . "lpf_zero" .7,5,FW_toggle,(String)7} . 

{"cpy_lpf_only"."lpf_only".8,5.FW_toggle,(String)8}, 

{"cpy_color","color_space",9,5.FW_toggle,(String)9}. 

{ "cpy_gamma" , "gamma" ,10,5 ,FW_toggle, (String) 10} , 
{"cpy_UV0_int",NULL,0,6,FW_integer,(Slring)&XWinputs[0]}, 
{"cpy_UV0_down",NULL,12,6,FW_down,(String)&UVinputs[0]}, 
{ "cpy_UV0_up" .NULL, 13,6,FW_up,(String)&UVinputs[0]} , 
{"cpy_UVl_int",NULL,0,14,FW_integer.(String)&UVinputs[l]}, 

{ "cpy_UVl_down" ,NULL, 12, 14,FW__down,(String)&UVinputs[l] } , 
{ "cpy_UVl_up" ,NULL, 16, 14,FW_up,(String)&UVinputs[l] } , 

}; 

XtCallbackRec cailbacks[]={ 
{Destroy ,(caddr_t)shell} , 
{NULL,NULL}, 
{Copy VideoCtrl,(caddr_t)ctrl} , 
{Destroy, (caddr_t)shell} , 
{NULL,NULL}. 

{NULL,NULL}, {NULL.NULL}, {NULL,NULL}, {NULL,NULL}, 
{NULL.NULL}, {NULL,NULL}, 

{NumIncDec,(caQdr_t)&UVinpuis[0] } . {NULL.NULL} , 
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{NumIncDec,(cacidr_t)&UVinputs[0]}, {NULL,NULL}, 
{NuinIncDec,(caddr_t)&UVinputs[l] }, {NULL,NULL} , 
{NumIncDec,(cadcir_t)&UVinputs[l]}, {NULL.NULL} , 

}; 

Dprintf("CopyVideo\n"); 

msg- > rows = 1 ; msg- > cols=NAME_LEN; 
Ctrl- > video = video; 

UVinputs[0].forniat="UV sub-sample X: %d"; 

UViiiputs[0].inin=0; 

UVii5)uts[0] .max = 2; 

UVinputs[0] .value = &ctrl->UVsample[0]; 
UVinputs[l].fonnat=''UV sub-sample Y: %d"; 
UVinputs[l].min=0; 
UVii:^)uts(l].max=2; 

UVinputs[l]. value = &ctrl->lJVsample[l]; 

ctrl-> UVsample[0] =video-> UVsample[0]; 
Ctrl- > UVsample[l] = video- > UVsample[l] ; 

FillFonn(form,COPY_ICONS,items,widgets,cailbacks); 
Ctrl- > radioGroup = widgets[5] ; 

XtSetSensitive(widgets[6], video- >size[2] > 1); 
XtSetSensitive(widgets[7] .video- > trans.type! =TRANS_None); 
XtSetSensitive(widgets[8] .video- > trans.type! =TRANS_None) ; 
XtSetSensitive(widgets[9] .video- > type! =MONO); 
XtSetSensitive(widgets[10] .video- > type! = YUV && 
video- > trans . type = = TRANS_None) ; 
XtPopup(sheIl,XtGrabExclusive); 

}; 



wo 94/23385 



PCT/GB94y00677 



- 116 - 

souTce/Framex 



/* 

Frame callback routines for Destroy 

*/ 

#include " . ./include/xwave.h" 

#mclude < Xll/Xmu/SysUtiLh > 

#include <pwd.h> 

extern void CvtlndexQ; 

extern Palette FindPaletteQ; 

extern void SetSensitiveQ; 

typedef struct { 
Frame frame; 

int frame^number, frame^zoom, framejalette, frame_channei; 
} ExamCtrlRec, *ExamCtrl; 

void FrameDestroy (w , closure, call_data) 

Widget w; 

caddr^t closure, call_data; 

{ 

Frame frame =(Frame)closure; 

void CleanUpPointsO, FrameDeleteQ; 

Dprintf("FrameDestroy\n"); 
frame- > point- > usage-; 
if (frame- > msg! = NULL) { 
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frame- > msg- > shell = NULL; 
CloseMessage(NULL,(caddr_t)frame- > nisg,NULL); 

} 

if (frame- > point- >xisage==0) CleanUpPoiats(&global-> points); 
XtPopdown(frame- > shell); 
XtDestroy Widget(frame- > shell); 
FrameDelete(&global- > frames,frame); 

} 

void CleanUpPoints(points) 
Point *points; 

{ 

Point dmnmy = *points ; 

if (dummy! =NULL){ 

if (dummy- > usage < 1) { 

♦points =dummy- > next; 

XtFree(dim3my); 

CIeanUpPoint5(points) ; 
} else CleanUpPoints(&((*points)->next)); 

}; 

} 

void FrameDelete(frames,frame) 
Frame *frames, frame; 

{ 

if (*frames!=NULL) { 

if (*frames= = frame) { 



wo 94/23385 PCT/GB94/00677 

- 118 - 

int iiumber=fraine-> frame; 



frame- >fraine=-l; 
FreeFrame(frame- > video, number); 
♦frames = frame- > next; 
XtFree(frame); 
} else FrameDelete(&(*frames)->next,frame); 

} 

} 



void ExamineCtrl(w,closure,call_data) 



Widget w; 

caddr_t closure, cail_data; 



{ 

ExamCtrl Ctrl = (ExamCtrl)closure; 
Arg args[l]; 



if (Ctrl- > frame- > frame! =ctrl- > frame_number-ctrl- > frame- > video- > start) { 
int old_frame = Ctrl- > frame- > frame; 

Ctrl- > frame- > frame = Ctrl- > frame_number-ctrl- > frame- > video- > start; 
FreeFrame(ctrl- > frame- > video,old_frame); 
GetFrame(ctrl- > frame- > video,ctrl- > frame- > frame); 

} 

Ctrl- > frame- > zoom =ctrl- > frame_zoom; 
Ctrl- > frame- > palette =ctrl- > framejalette; 
Ctrl- > frame- > channel = Ctrl- > frame_channel ; 
XtSetArg(args[0] ,XtNbitmap,UpdateImage(ctrl- > frame)); 
XtSetVaIues(ctrl- > frame- > image_widget,args,ONE); 



wo 94/23385 



PCT/GB94/00677 



- 119- 

XtSetArg(args[0] ,XtNcolormap,ChamieiCmap(ctrI- > frame- > channel.ctrl- > frame- > vide 
0- > type.ctrl- > frame- > video- > g amma )); 

XtSetValues(ctrl- > frame- > shell, args, ONE); 

if (cfrl- > frame- > msg! =NULL) UpdateInfo(ctrl- > frame); 

} 

#define EXAMJCONS 13 

void Examine(w,cIosure,call_data) 

Widget w; 

caddr t closure, call_data; 

{ 

ExamCtrl ctrl=(ExamCtrl)MALLOC(sizeof(ExamCtrIRec)); 
Numlnput num_inputs =(NumIiiput)MALLOC(2*sizeof(NumlE?)utRec)); 
XtCallbackRec destroy_callQ={ 

{Free,(caddr_t)ctrl}, 

{Free,(caddr_t)num_iiq)uts}, 

{NULL,NULL}, 
} , pal_call[2*global- > no jpals] ; 

Widget shell =SheUWidget("examine" ,w,SW_below,NULL,destroy_call) , 

fonn=FormatWidget("exam_fonn" ,shell), widgets[EXAM_ICONS] , 
pal_widgets[global->no_pals], pal_shell; 
Frame frame=(Frame)closure; 
Fonnltem itemsD={ 

{"exam_cancer , "cancel" ,0,0,FW_icon,NULL}, 
{"exam_confirm","confirm",l,0,FWJcon,NULL}. 
{ "examjabel" , "Examine" ,2,0,FWJabeI,NULL} . 
{"exam_ch_lab", "Channel :",0,3.FWJabel,NULL}. 

{"exam_ch_btn",ChanueiName[frame- > video- > typeJiframe- > channei],4,3,FvV_buiion, " 
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examcngch"}. 



{ "exain_pal_lab" , "Palette : " ,0.4,FW_IabeI.NULL} , 



{ "exam_pal_btn",FinciPaIette(global- > palettes, frame- > palette)- > naine,4,4,FW_button, 
exam_cng_pal"}. 



{"exam_z_mt'\NXJLL,0,6,FW_integer,(String)&iixim_inputs[0]}, 

{ "exam_z_dowm" ,NULL,8,6,FW_down,(String)&niimJnputs[0]} , 

{ "exam_z_up " ,NUIi,9,6,FW_up ,(String)&iiuin_inputs[0]} , 

{ "exam_zoom_mt" ,NULL,0,8,FW_mteger,(String)&num_mputs[l] } , 

{"exam_zoom_dowm'\NUIX,8,8,FW_down,(Strmg)&num_iiq)uts[l]}, 

{ "exain_zoom_up" .NULL, 12,8,FW_up,(String)&num_iiq)uts[l]} , 



Menultem pal_menu[global- > no_pals] ; 
XtCallbackRec callbacksD = { 

{Destroy ,(caddr_t)shell} , 

{NULL.NULL}, 

{ExamineCtrl,(caddr_t)ctrl} , 

{Destroy ,(caddr_t)shell} , 

{NULL,NULL}, 

{NumlncDec, (caddr_t)&nuin_mputs[0] } , {NULL,NULL} , 
{NumlncDec, (caddr_t)&num_inputs[0] } , {NULL.NULL} , 
{NuinIncDec,(caddr_t)&num_mputs[l]}, {NULL.NULL}. 
{NumlncDec, (caddr_t)&num_inputs[l] } , {NULL.NULL} , 



}; 



int 



i, width =0; 



Palette 



pal =globaI- > palettes; 



XFontStruct *font; 



Arg args[l]; 



caddr t 



diimmy[gIobal->no_pals], dummy2[globaI->nojpals]; /* 



gcc-mc68020 bug avoidance */ 



Dprintf ( " Examine\n " ) ; 
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Ctrl- > frame = frame; 

Ctrl- > frame_number = frame- > frame + frame- > video- > start; 
Ctrl- > frame_zoom= frame- > zoom; 
Ctrl- > frame_palette = frame- > palette; 
Ctrl- > frame_chamiel = frame- > chamiel; 
num_inputs[0] .format = "Frame: %03d" ; 

num_mputs[0] .max=fiame- > video- > start+frame- > video- > size[2]-l ; 

nimi_inputs[OI .min=frame- > video- > start; 

iium_inputs[0] .value =&ctrl- > frame_number; 

num_inputs[l].format="Zoom: %d"; 

imm_iiq)uts[l] .max =4; 

num_inputs[l] .min=0; 

num_inputs[l] .value =&ctrl- > fr^e^zoom; 

FillForm(form,EXAMJCONS,items,widgets,callbacks); 

font=FindFont(widgets[6]); 

for(i=0;pal!=NULL;pal=pal->next,i++) { 
pal^menu [i] . name = pal- > name ; 
pal_menu[i] . widgetClass = smeBSBObjectClass ; 
pal_menu[i].label=pal->name; 
pal_menu[i] .hook=NULL; 
pal_call[i*2] .callback=SimpleMenu; 
pal_call[i*2] .closure = (caddrj)&ctrl- > framejpalette; 
pal_call[i*2+ l].callback=NULL; 
pal_call[i*2-h l].cIosure=NULL; 
width =TextWidth(width,pai- > name,font); 

} 

pal_shell=ShellWidget("exam_cngj)al\shelUSW_menu,NUIX,NU^ 
FillMenu(pal_shell,gIobal- > no_pals,pai_menu,pal_widgets,pal_calI); 
XtSetArg(args[0] ,XtNwidth,2 + width) ; 
XtSetValuesC widgets[6] , args , ONE) ; 
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if (frame- > video- > type = = MONO) XtSetSensitive(widgets[4], False); 
else { 

Menultem ch_menu[4]; 
Widget 

ch_sheIl=ShellWidget("exam_cng_ch",shell,SW_menu,NULL,NULL), ch_widgets[4] ; 
XtCallbackRec ch_call[8]; 

font = FindFoiit(widgets[4]) ; 
width =0; 

for(i=0;i<4;i++) { 

ch_meiiu[i] .name =ChannelName[frame- > video- > type] [i] ; 
ch_menu[i] . widgetClass =smeBSBObjectClass; 
ch_menu[i] .label =ChannelName[firame- > video- > type][i] ; 
ch_nienu[i].hook=(caddr_t)&ctrl- > frame_channel; 
ch_call[i*2] .callback^ SimpIeMenu; 
cli_call[i*2] .closure=(caddr_t)&ctrl- > ftame_cbannel; 
ch_caU[i*2 -1- 1] .callback=NULL; 
ch_call[i*2 + 1] .closure=NULL; 

width=TextWidth(width,ChannelName[ftame- > video- > type] [i] .font); 
} 

FillMenu(ch_shell,4,ch_menu,ch_widgets,ch_call); 
XtSetArg(args[0] ^XtNwidth,2 4- width); 
XtSetValues(widgets[4] .args.ONE) ; 

} 

XtPopup(shell,XtGrabExclusive) ; 

} 

void FrainePointYN(w,closure,call_data) 

Widget w; 

caddr t closure, call data; 
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{ 

Frame frame =(Fraine)closure; 
Arg args[l]; 
Pixmap pixmap; 

Display ♦dpy =XtDisplay (global- > toplevel) ; 
Icon poiiit_y=FmdIcon("point_y"), 

point_n=FindIcon("pomt_n"); 

Dprintf("FramePoiiitYN\n"); 

frame- > pomt_switch= Iframe- > point_switch; 

XtSetSensitive(frame- > image_widget, frame- > pomt_switch); 

XtSetArg(args[0] .XtNbitmap, (frame- > point_switch?point_y :pomt_n)- > pixmap); 

XtSetValues(w,args,ONE); 

XtSetArg(args[0],XtNbitmap,&pixmap); 

XtGetValues(fiame- > image_widget,args,ONE); 

UpdatePoint(dpy,fr:ame,pixmap); 

XtSetArg(args[0] ,XtNbitmap,pixmap); 

XtSetValues(fiame- > image_widget,args,ONE); 

if (frame- >msg!= NULL) Updatelnfo(frame); 

} 

void NewPoint(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Frame frame =(Frame)closure; 
Video vid=frame-> video; 
void UpdateFramesQ; 
int *posn=(int *)call_data, 

channei = frame- > channel = = 3 ?0: frame- > channel; 
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posn[0] =posn[0] > > frame- > zoom; posn[l] ==posii[l] > > frame- > zoom; 
if (vid->trans.type==TRANS_Wave) { 

int octs = vid- > trans. wavelet. space[vid- > type= = YUV && 
channel! =0?1:0], oct; 



CvtIndex(posn[0],posn[l],Size(vid,chamiel,0),Size(vid,chamielJ),octs,&^^ 
,&oct); 

} 

if (vid- > type == YUV 8l8l chamiel! =0) { 

posn[0] =posn[0] < < vid- > UVsample[0]; 
posn[l] =posn[l] < < vid- > UVsample[l]; 

} 

Dprintf("NewPoint %d %d previous %d 
% d\n" ,posn[0] ,posn[ll , frame- > poini- > location[0] ,frame- > point- > location[l]) ; 

if (posn[03 ! - frame- > point- > location[0] | [ 
posn[l]! = frame- > point- >Iocation[13) { 

UpdateFrames(giobal- > frames,frame- > point,False); 
frame- > point- > location[0] =posn[0] ; 
frame- > point- > location[l] =posn[l]; 
UpdateFrames(giobal- > framesjrame- > point,True); 
} else Dprintf("No movement\n"); 

} 

void UpdateFrames(frarae,point,update) 

Frame frame; 
Point point; 
Boolean update; 

{ 

Arg args[l]; 
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if (frame! = NULL) { 

if (point = = frame- > point && frame- >point_switch== =True) { 
Pixmap pixmap; 

Display *dpy =XtDisplay(giobal- > toplevel); 



XtSetArg(args[0],XtNbitmap,&pixniap); 
XtGetValues(frame- > image_widget,args,ONE); 
UpdatePoint(cipy,frame,pixmap); 
if (update ==True) { 

XtSetArg(args[0] ,XtNbitmap,pixmap); 

XtSetValues(frame- > image_widget,args,ONE); 

if (frame- >msg!=NULL) Updatelnfo(frame); 

} 

} 

UpdateFrames(frame- > next,point,update); 

} 

} 

void CloseInfo(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Frame frame -(Frame)closure; 
frame- > msg == NULL; 

} 

#define INFOJCONS 2 



void FrameInfo(w,closure,call_data) 



QIIRCTITIITF SHFFT fRULE 26\ 
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Widget w; 

caddr t closure, call data; 



Frame frame =(Frame)closiire; 

Message msg = NewMessage(NULL, 1000) ; 

XtCallbackRec callbacksO = { 

{SetSensitive,(caddr_t)w} , 

{CloseIiifo,(caddr_t)frame} , 

{CloseMessage,(caddr_t)msg} , 

{NULUNULL}, 

}; 

Dprintf("FrameInfo\n") ; 
frame- > msg = msg ; 
Updatelnfo(frame); 
Texts ize(msg); 

MessageWindow(w,msg,frame-> video- > name,True,callbacks); 
XtSetSensitive(w,False); 

} 

void FrameMerge(w,closure,caIl_data) 



Widget w; 

caddr t closure, call data; 



Frame frame =(Frame)closure; 
void MergePointsO; 
Arg args[l]; 

Dprintf("FrameMerge\n"); 
MergePoints(globai- > frames, frame); 



SUBSTITUTE SHEET (RULE 26) 
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} 

void MergePoints(fraine_search,frame_found) 
Frame frame_search, frame^found; 

{ 

Arg args[l]; 

if (frame_search!=NULL) { 

if (NULL= =XawToggIeGetCtaem(fTame_search->point_merge_widgeO 
j| fraine_search==frame_found) 

MergePoints(frame_search- > next,frame_found); 

else { 

Pixmap pixmap; 

Display *dpy =XtDisplay (global- > toplevei); 

XtSetArg(args[0] ,XtNbitniap,&pixmap) ; 
XtGetValues(franie_foiind- > iinage_widget,args,ONE); 
if (fTame_foiind->point_switch==True) 
UpdatePoint(dpy,firame_found,pixmap); 

frame^search- > point- > usage + + ; 
frame_foimd- > point- > usage-; 
if (frame_found- > point- > usage = =0) 
CleanUpPoints(&global- > points); 

framefound- > point =franie_search- > point; 
if (ftame_found->point_switch==True) { 

UpdatePoint(dpy ,frame_found,pixniap) ; 

XtSetArg(args[0] ,XtNbitmap,pixmap); 

XtSetValues(frame_found- > image_widget,args,ONE); 

} 

if (frame_found-> msg! =NULL) UpciateInfo(frame_found); 



SIIRSTITIITF SHFFT (RULE 2P^ 
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XawToggleUnsetCurrent(frarae_search- > point_merge_widget); 
XawToggleUnsetCurrent(frame_found- > point_merge_widget) ; 

} 

} 

} 

#defme POST_DIR "postscript" 

void PostScript(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Frame frame =(Frame)closure; 
Video video = frame- > video; 
FE-E *fp, *fopen(); 

char file_name[STRLEN], hosmame[STRLEN]; 
int X, y, width=Size(video,frame->chamiel,0), 
height =Size(video,frame- > chamieU 1); 
struct passwd *pswd; 
long clock; 

Dprintf("PostScript\n"); 

sprintf(file_name, " %s %s/%s.ps\0" , global- > home,POST_DIR, video- > name); 
fp=fopen(fiIe_name, "w"); 
fprintf(fp, " % % !PS-Adobe-LO\n"); 
pswd = getpwuid (gemid 0); 

(void) XmuGetHostname (hostname, sizeof hostname); 
fprintf(fp,"%%%%Creator: %s:%s (%s)\n", hostname,pswd->pw_name, 
pswd- > pw_gecos); 

fprintfCft), " % % % %Title: %s\n" , video- > name) ; 
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fi5rintf(fp,"%%%%BoundmgBox: 0 0 %d %d\ii",width,height); 
fprmtf(fp,"%%%%CreationDate: %s",(time («S:clock), ctime (&cIock))); 
fprintfCfp, " % % % %EndComments\n") ; 
fiprintf(fp,"%d %d scale\n",width,height); 
fprintf(fp,"%d %d 8 image_print\n",width,height); 
GetFrame(video,fraine- > frame) ; 
for(y=0;y<height;y + +) { 

for(x=0;x<width;x++) { 

int X, Y, oct, data; 

if (video- > trans.type= =TRANS_Wave) { 

Cvtlndex(x,y,width,height, video- > traiis.wavelet.space[0] ,&X,&Y,&oct) ; 

data =128 +Roxmd(video- > data[fi:ame- > channel % 3] [frame- > ftame] [Y*video- > size[0] -I- 
X] *(oct= =video- > trans.wavelet.space[0]?l :4),video- > precision); 
} else 

data =128-1- Round(video- > data[frame- > channel % 3] [frame- > frame] [y *video- > size[0] + 
x] .video- > precision); 

fprintf(fip, " %02x" .data < 0?0: data > 2557255: data); 

} 

fprintf(fp,"\n"); 

} 

FreeFraiiie(video,frame- > frame); 
fclose(fp); 

} 

void Spectruni(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 
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{ 

Frame frame =(Frame)closure; 

Display *cipy =XtDisplay(global- > toplevel); 

XColor xcoior[2], falsecolor; 

int i; 

Colormap 

cmap=ChamielCmap(frame- > chamiel,frame- > video- > type.frame- > video- > gamma); 



Dprintf("Spectnim\n"); 
falsecolor.flags=DoRed | DoGreen | DoBlue; 
XSynchronize(dpy ,True) ; 
for(i=0;i<2+global->leveis;i++) { 

if (i>l) XStoreColor(dpy,cmap,&xcolor[i&l]); /* Restore old color */ 
if (i< global- > levels) { 

xcolor[i&l] .pixel = i; 

XQueryColor(dpy,cmap,&xcolor[i&l]); 

falsecolor.pixel=i; 

falsecolor.red = xcolor[i&l] .red -h 325 12; 
falsecolor. green = xcolor [i& 1 ] . green + 325 1 2 ; 
falsecolor. blue = xcolor [i& 1 ] . blue + 325 12 ; 
XStoreColor(dpy,cmap,&falsecolor); 

} 

} 

XSyncfaronize(dpy , False) ; 
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source/iconS.c 



/* 

Create Icons/Menus and set Callbacks 

*/ 

#include " . ./include/xwave.h" 
Function Name: Findlcon 

Description: Finds IconRec entry from name in global icon array 
Arguments: icon_name - name of icon bitmap 
Returns: pointer to IconRec with the same name as icon_name 

Icon FindIcon(icon_name) 
String icon_name; 

{ 

int i; 

Icon icon == NULL; 

for (i=0;i < global- >no_icons;i++) 

if (!strcmp(global->icons[i],name,icon_name)) icon=&globaI-> icons [i]; 
retum(icon); 

void FillForm(parent,number,items,widgets,callbacks) 



/* 
♦/ 



} 



int 



number; 
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Fonnltem items Q; 

Widget parent, widgetsQ; 

XtCallbackRec callbacksQ ; 

{ 

Arg args[10]; 
int i» call_i=0; 

for(i=0;i<number;i++) { 

int argc=0, *view=(int *)iteins[i].hook; 
char text[STRLEN]; 
float top; 

Nuinli5)ut iuim=(NuinIi^)ut)itenis[i] .hook; 
Floatlnput flt=(FloatInput)items[i].hook; 
Message msg = (Message)iteins[i] . hook; 
WidgetClass 

class[15] = {labelWidgetClass,conuimdWidgetClass,coniiimdWidgetClass 
tClass, 

menuButtonWidgetClass,meniiButtonWidgetClass,viewportWidgetCIass,toggIeWidgetClass 



coinmandWidgetCIass,commaiidWidgetCIass,commandWidgetClass4abelW 

scrollbarWidgetClass,labelWidgetClass,fonnWidgetClass}; 
Boolean 

caII[15]={False,True,Tnie,False,False,False,FalseJrueJrue,TrueJrue,False,Faise,Fa 
e. False}; 

if {items[i].froniHoriz! =0) { 

XtSetArg(args[argc],XtNfromHoriz,widgets[items[i].froniHoriz-l]); 

argc+ + ; 

} 



wo 94/23385 



PCT/GB94/00677 



- 133 - 

if (items[i].fromVert!=0) { 

XtSetArg(args[argc] ,XtNfromVeit,widgets[items[i] .from Vert- 1]); 

argc+ + ; 

} 

switch(items[i].type) { /* Initialise contents */ 
case FW_yn: 

itemsp] , contents = *(BooIean *)items[i] .hook? "confirm" : "cancel " ; 

break; 
case FW_up: 

items[i] . contents = "up " ; 

break; 
case FW_down: 

items[i] .contents = "down" ; 

break; 
case FW_integer: 

sprintf(text,num- > format, ♦num- > value); 

items[i] .contents =text; 

break; 
case FW_float: 

sprintf (text, fit- > format, *flt- > value); 

items[i] . contents = text; 

break; 

} 

switch(items[i].type) { /* Set contents */ 

case FWJabel: case FW_command: case FW_button: case FW_integer: 
case FW_float: 

XtSetArg(args[argc],XtNIabel,items[i]. contents); argc-f + ; 
break; 

case FW_down: case FWjip: case FW_yn: case FW_toggle: case 
FW_icon: case FW_icon_button: { 

Icon icon=FindIcon(items[i] .contents); 
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if (icon==NULL) { 

XtSetArg(args[argc] ,XtNlabel,items[i] .contents) ; argc + + ; 
} else { 

XtSetArg(args[argc] ,XtNbitniap,icon- > pixmap) ; argc + + ; 
XtSetArg(args[argc],XtNheight,icon- >height+2); argc+ + ; 
XtSetArg(args[argc],XtNwidth,icon- > width+2); argc+ + ; 

} 

} break; 

} 

switch(items[i].type) { /* Individual set-ups */ 
case FW_text: 

XtSetArg(args[argc] ,XtNstring ,msg- > info .ptr) ; argc + + ; 
XtSetArg(args[argc] ,XtNeditType,nisg- > edit); argc + + ; 
XtSetArg(args[argc] ,XtNuseStringInPIace,True); argc + + ; 
XtSetArg(args[argc] ,XtNlength,msg- > size) ; argc + + ; 
break; 

case FW^button: case FWjcon_button: 

XtSetArg(args[argc],XtNmenuName,(String)items[i].hook); 

argc + -f; 

break; 
case FW_toggie: 

if ((int)items[i].hook==0) { 

XtSetArg(args[argc],XtNradioData,l); argc+ + ; 
} else { 

caddr__t radioData; 

Arg radioargs[ll; 

Widget radioGroup = widgets [(int)items[i] . hook- 1 ] ; 

XtSetArg(radioargs[0],XtNradioData,&radioData); 
XtGet VaIues(radioGroup , radioargs , ONE) ; 

XtSeLA.rg(args[argc],XtNradioData,(caddr_t)((int)radioData-!-l)); argc +4-; 
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XtSetArg(args[argc],XtNradioGroup,raciioGroup); argc+ -h; 

} 

break; 
case FW^scroll: 

top = (float)(*flt- > value-fit- > imn)/(flt- > max-flt- > min) ; 
XtSetArg(args[argc] ,XtNtopOfThumb,&top); argc + + ; 
XtSetArg(args[argc] ,XtNjumpProc,&callbacks[cain]) ; argc + + ; 
while(callbacks[call J]. callback! =NULL) call_i++; 
call_i++; 

break; 
case FW_view: 

if (view!=NULL) { 

XtSetArg(args[argc] ,XtNwidth,view[0]); argc + + ; 

XtSetArg(args[argc],XtNheight,view[l]); argc-f + ; 

} 

break; 

} 

widgets[i]=XtCreateManagedWidget(items[i].name,class[(mt)items[i].type],parent,args,ar 
gc); 

switch(itein5[i].type) { /♦ Post processing ♦/ 
case FW_toggle: 

if (items[i].hook==NULL) { /* Avoids Xaw bug */ 

XtSetArg(args[0] , XtNradioGroup, widgets [i]) ; 

XtSetValues(widgets[i] ,args,ONE); 

} 

break; 
case FW_text: { 

XFontStruct *font; 
Arg text_args[l]; 



msg- > widget =widgets[i]; 
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XawTextDisplayCaret(insg- > widget,msg- > edit! =XawtextRead); 
XtSetArg(text_args[0],XtNfont,&font); 
XtGetValues(widgets[i] .text_args,ONE); 
argc=0; 

if (msg- > edit= =XawtextRead && msg- > info.ptr[0] ! = '\0') 
XtSetArg(args[argc],XtNwidth,4+TextWidth(0,msg- > info.ptr.font)); 
else 

XtSetArg(args[argc] ,XtNwidth,4+msg- > cols*(font- > max_bounds, width + font- > min^bo 
unds.width)/2); 

argc+ + ; 

XtSetArg(args[argc],XtNheight, 1 +msg- > rows*(font- > max^bounds.ascent +font- > iiiax_ 
bounds.descent)); argc+ + ; 

XtSetValues(widgets[i],args,argc); 

} break; 
case FW_button: 

XtOverrideTranslations(widgets[i],XtParseTranslationTable(" <BtnDown> : resetO 
NameButtonO PopupMenuQ ")) ; 

break; 
case FW^down: 

if (*ntim- > value= =num- > min) XtSetSensitive(widgets[i] ,False); 
num- > widgets[01 = widgets[i] ; 
break; 
case FW_up: 

if (*nuin->value==nuni->max) XtSetSensitive(widgets[i], False); 

num- > widgets[l] = widgets[i] ; 

break; 
case FW_integer: 

num- > widgets[2] = widgets[i] ; 

break; 
case FW scroll; 



n inrriTi tTc cuccT /otii c nG\ 
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fit- > widgets[l] =widgets[i]; 
XawScrollbarSetThumb(widgets[i],top,0.05); 
break; 
case FW_float: 

fit- > widgets[0] = widgets[i] ; 
break; 

} 

if (caU[(int)items[i].type]) { /* Add Callbacks */ 
if (callbacks[call_i]. callback! =NULL) 

XtAddCaUbacks(widgets[il,XtNcallback,&callbacks[caIl_i]); 
while(callbacks[call_i3. callback! =NULL) call_i+ + ; 
call_i++; 

} 

} 

} 

Widget ShellWidget(name,parent,Qrpe,cmap,callbacks) 

String name; 
Widget parent; 
ShellWidgetType type; 
Colormap cmap; 
XtCallbackRec callbacksQ; 

{ 

Widget shell; 
Arg args[3]; 
Position X, y; 
Dimension height =-2; 
int argc=0; 
WidgetCIass 

class[] = {transientShellWidgetCIass,iransientSheIlWidgetClass,topLevelShellWidgetClass,p 
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ullRightMenuWidgetClass} ; 

if (type==SW_below | j type==SW_over) { 
XtTranslateCoords(parent,0,0,&x,&y); 
if (type==SW_below) { 

XtSetArg(args[0],XtNheight,&height); 

XtGetValues(parent,args,ONE); 

} 

XtSetArg(args[argc],XtNx,x); argc+ + ; 
XtSetArg(args[argc] ,XtNy ,y +height+2) ; argc + + ; 

} 

if (cmap! =NULL) { 

XtSetArg(args[argc] .XtNcolormap.cmap); argc + + ; 

} 

shell=XtCreatePopupShell(naine,class[type],parent,args,argc); 

if (caUbacks! =NULL) XtAddCaUbacks(shell,XtNdestroyCaUback,caUbacks); 

retum(shell); 

} 

Widget FonnatWidget(name,parent) 

String name; 
Widget parent; 

{ 

remm(XtCreateManagedWidget(name,formWidgetClass,parent,NULL,ZERO)); 

} 

void FiIlMenu(parent , number, items , widgets , callbacks) 



int number; 
Menultem iiemsO; 
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Widget parent, widgetsQ; 
XtCallbackRec callbacksQ ; 



Arg args[4]; 

int i, call_i=0; 

Icon icon=FmdIcon("right"); 

for(i=0;i<nuniber;i++) { 
int argc=0; 



XtSetArg(args[argc],XtNlabei,items[i].label); argc+ + ; 
if (items[i].widgetClass==smeBSBprObjectClass) { 

XtSetArg(args[argc] ,XtNmenuName,itenis[i] .hook) ; argc + + ; 

XtSetArg(args[argc] ,XtNrightMargin,4 +icon- > width); argc + + ; 

XtSetArg(args[argc] ,XtNrightBitmap,icon- > pixmap); argc + + ; 



widgets[i]=XtCreateManagedWidget(items[i].nanie,itenis[i].widgetClass,parent,args,a^^ 

if (itenis[i].widgetClass==smeBSBObjectClass) { /* Add Callbacks ♦/ 
XtAddCaUbacks(widgets[i] ,XtNcallback,&caUbacks[call_i]) ; 
while(cailbacks[call_i] .callback! =NULL) call_i+ + ; 
call_i+ + ; 

} 

} 

} 

void SinipleMenu(w,closure,call_data) 



Widget w; 

caddr t closure, call daca; 
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{ 

int *hook=(int *)closiire, no_child, child, argc=0; 
Widget menu=XtParent(w), button; 
WidgetList children; 
char *label; 
Arg args[3]; 

XtSetArg(args[argc] ,XtNlabel,&label); argc + + ; 
XtGetValues(w,args,argc); argc=0; 
XtSetArg(args[argc],XtNchiIdren,&children); argc + +; 
XtSetArg(args[argc] ,XtNnumChildren,&no_child); argc + + ; 
XtSetArg(args[argc] ,XtNbutton,&button); argc + + ; 
XtGetValues(menu,args,argc); argc=0; 

for(child=0;children[child]!=w && child < no^child;) child+ + ; 
if (w!=children[child]) Eprintf("SimpleMenu: menu error\n"); 
*hook=child; 

XtSetArg(args[argc],XtNlabeUiabel); argc++; 
XtSetValues(buttoa,args,argc); 

} 

void NumIncDec(w,closure,call_data) 

Widgei w; 

caddr_t closure, call_data; 

{ 

Numlnput data = (NumIiq5ut)closure ; 

Arg args[l]; 

char text[STRLEN]; 

♦data- > value + = (w = =data- > widgets[0])?-l : 1 ; 
sprintf(text,data- > format, *data- > value); 
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f 

if (data- >min==*(iata-> value) XtSetSensitive(data-> widgets [0], False); 
else XtSetSensitive(data-> widgets[0],True); 

if (data- > max ==*data-> value) XtSetSensitive(data->widgets[l],FaIse); 
else XtSetSensitive(data-> widgets[l],True); 
XtSetArg(args[0].XtNlabel,text); 
XtSetValuesCdata- > widgets [2], args, ONE); 

} 

void FloatIncDec(w,closure,calI_data) 

Widget w; 

caddrj closure, call^data; 

{ 

Roatlnput data=(FloatInput)cIosure; 

Arg args[l]; 

char text[STRLEN]; 

float percent=*(float *)call_data; 

♦data- > value=data- > niin-H(doubIe)percent*(data- > raax-data- > min) ; 
sprintf(texl,data- > format, *data- > value) ; 
XtSetArg(args[0] ,XtNlabel,text); 
XtSetValues(data- > widgets[0],args,ONE); 

} 

Function Name: Change YN 
Description: Toggle YN widget state 
Arguments: w - toggling widget 

closure - pointer to boolean state 
call_data - not used 

Returns: none. 



/* 
* 

* 
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void Change YN(w.cIosure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Boolean *bool= (Boolean *)closure; 

Icon icon=FindIcon((*bool != True)?"confinn": "cancel"); 

Arg args[4]; 

int argc=0; 

*bool = ! *bool; 

XtSetArg(args[argc] ,XtNbitmap,icon- > pixmap); argc + -h ; 
XtSetArg(args[argc] ,XtNheight,icon- > height +2); argc + + ; 
XtSetArg(args[argc] ,XtNwidth,icon- > width+2); argc + + ; 
XtSetValues(w,args,argc); 

} 

int TextWidth(max,text,font) 

iiU max; 
String text; 
XFontStruct *font; 

{ 

int i=0, j; 

while(text[i]!='\0'){ 
int width; 

for(j=0;text[i+j]! = '\0' 8l&. text[i+j]! = '\n';) j + + ; 
width = XTextWidth(fom,&text[i] ,j) ; 
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max = max > width?max: width; 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Instimte of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supporting documentation, and that the names of Digital or MIT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABIUTY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECLU-, INDIRECT OR CONSEQUENTLY. 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGUGENCE OR OTHER 
TORTIOUS ACTION, 

ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 
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/* 

* Image.c - Image widget 

*/ 

#defme XtStrleii(s) ((s) ? strlen(s) : 0) 

#inciude <stdio.h> 
#include <ctype.h> 
#include <Xll/IntrmsicP.h> 
#mclude <Xll/StringDefs,h> 
#include <X11/Xaw/Xawliut.h> 
#include ".,/include/ImageP.h" 

#define streq(a,b) (strcmp( (a), (b) ) == 0) 

* 

* Full class record constant 
/* Private Data */ 

static char defauitTransiationsQ = 
" < BtnlDown > : notifyO\n\ 
<BtnlMotion>: notifyO\n\ 
<BtnlUp>: notifyO"; 
#define offset(rield) XtOffset(ImageWidget, field) 
static XtResource resources [] = { 

(XtNbitmap, XtCPixmap, XtRBitmap, sizeof(Pixmap), 
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offset(iinage.pixmap), XtRImmediate, (caddr_t)None}, 
{XtNcallback, XtCCallback, XtRCallback, sizeof(XtPomter), 
offset(iinage.callbacks), XtRCallback, (XtPomter)NULL}, 



static void InitializeQ; 
static void ResizeQ; 
static void Redisplay 0; 
static Boolean SetValuesQ; 
static void ClassInitializeQ; 
static void Destroy 0; 

static XtGeometry Result Query GeometryO; 
static void NotifyO, GetBitmapInfoO; 

static XtActionsRec actionsListQ = { 

{"notify", Notify}, 

}; 

ImageCIassRec imageClassRec = { 

{ 



/* core_class fields */ 






#define superclass 


(&simpleClassRec) 


/* superclass 


*/ 


(WidgetClass) superclass, 


/* class_name 


*/ 


"Image", 


/* widget^size 


*/ 


sizeof(ImageRec), 


/* classjnitialize 


*/ 


Classlnitialize, 


/* class j)art_imtialize 


*/ 


NULL, 


/* class_inited 


*/ 


FALSE, 


/* initialize 


. */ 


Initialize, 


/* initialize^hook 


*/ 


NULL, 


/* realize 


*/ 


XtlnheritRealize , 



wo 94/23385 



PCT/GBS4/00677 



- 146 - 



/* actions 


*/ 


actionsList, 


/* num actions 


*/ 


XtNumber(actionsList) , 


/* resources 


*/ 


resources. 


/* num resources 


*/ 


XtNumber(resources) , 


/* xnn class 


*/ 


NULLOUARK, 


/* compress motion 




*/ TRUE, 


/* compress exposure 


*/ 


TRUE, 


/* compress enterleave 


♦/ 


TRUE, 


/* visible interest 




*/ FALSE, 


/* destrov 


*/ 


Destrov 


/* resize 


*/ 


Resize 




i 




/ awl ValUwo 


*/ 


^^tVfl1ll*»S 


/ SCl VaiUcS DOUK. 






/* set values almost 


*/ 


XtlnheritSet Values A 1 m nst 


/ * CT**f VP 1 n h rvrtlf 




*/ NUT T 


/* accent focus 


*/ 


NULL, 


/* version 


*/ 


XtVersion 


/♦ callback jjrivate 


*/ 


NULL, 


/♦ tin_table 




defaultTranslations, 


/* query_geomeny 




*/ QueryGeometry, 


/* display_accelerator 


♦/ 


XtlnhentDisplay Accelerator, 


/* extension 


*/ 


NULL 



}. 

/* Simple class fields initialization */ 

{ 

/* change^sensitive */ XtlnheritChangcSensitive 

} 

}; 

WidgetClass imageWidgetClass = (WidgetCIass)&imageClassRec; 
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* Private Procedures 
* 

Static void ClassImtializeQ 
{ 

extern void XmuCvtStringToBitmapO; 
static XtConvertArgRec screenConvertArgQ = { 

{XtWidgetBaseOffset, (caddrj) XtOffset(Widget, core.screen), 
sizeof(Screen ♦)} 

}; 

XawInitializeWidgetSetO ; 

XtAddConverter("String% "Bitmap", XmuCvtStringToBitmap, 
screenConvertArg, XtNumber(screenConvertArg)) ; 
} /* Classlnitialize */ 

/* ARGSUSED */ 

static void Imtialize(request,new) 

Widget request, new; 

{ 

ImageWidget iw = (ImageWidget) new; 

Dprintf("lmagelnitialize\n"); 

if (iw- > image.pixmap = = NULL) 

XtErrorMsg("NoBitniap " , "asciiSourceCreate" , "XawError" , 

"Image widget has no bitmap. ",NULL,0); 
GetBitmapInf o(new) ; 

if (iw->image.map_width< =0 1 1 iw-> image. map_Iieight< =0) 

XiErrorMsg(" NoDimension" , "asciiSourceCreate " , "XawError" , 
"Image widget illegal map dimension. ",NIJLL,0); 
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if (iw-> core. width ==0) iw->core.width=iw-> image. map^width; 
if (iw->core.height ==0) iw->core.height=iw->iinage.map_height; 

(*XtClass(new)- > core_ciass.resize) ((Widget)iw); 

} /♦ Initialize */ 

/♦ 

* Repaint the widget window 
*/ 

/♦ ARGSUSED */ 

static void Redisplay(w, event, region) 
Widget w; 
XEvent *event; 
Region region; 

{ 

ImageWidget iw = (ImageWidget) w; 

Dprintf("ImageRedisplay\n"); 
if (region != NULL && 
XRectInRegion(region, 0, 0, 

iw- > iniage.map_width, iw- > image. niap_height) 
= = RectangleOut) 
return; 

XCopyArea( 

XtDisplay(w), iw->image.pixmap, XtWindow(w), 
DefauitGC(XtDispiay(w),XDefauitScreen(XtDisplay(w))), 

0, 0, iw-> image. map_width, iw-> image. map^height, 0, 0); 

} 
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Static void Resize(w) 
Widget w; 

{ 

ImageWidget iw = (IinageWidget)w; 
Dpriiitf("IiiiageResize\n"); 

} 

/* 

* Set specified arguments into widget 
*/ 

static Boolean SetValues(current, request, new, args, nuni_args) 
Widget current, request, new; 
ArgList args; 
Cardinal *num_args; 

{ 

ImageWidget curiw = (ImageWidget) current; , 
ImageWidget reqiw = (ImageWidget) request; 
ImageWidget newiw = (ImageWidget) new; 
Boolean redisplay = False; 

/* recalculate the window size if something has changed. */ 

if (curiw- >image.pixmap != newiw- >image.pixmap) 
XFreePixmap(XtDisplay(curiw), curiw- > image.pixmap); 
GetBitmapInfo(newiw) ; 

newiw- > core* width=newiw- > image. map_width; 
newiw- > core.height =newiw- > image.map_height; 
redisplay = True; 

return redisplay | j XtlsSensitive(current) != XtlsSensitive(new); 
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Static void Destroy(w) 
Widget w; 

{ 

ImageWidget Iw = (IiiiageWidget)w; 
Dprintf("ImageDestroy\n"); 

} 

static XtGeometry Result QueryGeometiy(w. intended, preferred) 
Widget w; 

XtWidgetGeometry *intended, *preferred; 

{ 

register ImageWidget iw = (ImageWidget) w; 

preferred- >request_mode = CWWidth i CWHeight; 
preferred- > width = iw->image.map_width; 
preferred- > height = iw-> image, map^height; 
if ( ((intended- >request_mode & (CWWidth | CWHeight)) 
= = (CWWidth I CWHeight)) && 
intended- > width = = preferred- > width && 
intended- > height == preferred- > height) 
return XtGeometry Yes; 
else if (preferred- > width == w-> core. width && 
preferred- > height == w->core.height) 
return XtGeometry No; 

else 

return XtGeometry Almost; 



static void GetBitmapInfo(w) 
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Widget 



w; 



Image Widget iw=(ImageWidget)w; 
unsigned int depth, bw; 



Window 



root; 



int X, y; 

unsigned int width, height; 
char buf[BUFSIZ]; 

if (iw->image.pixmap != None) { 
if 

(!XGetGeometry(XtDisplayOfObject(w),iw->image.pixmap,«&root,4Sbc,&y,&width,&heig 
ht,&bw,&depth)) { 



sprintf(buf, "ImageWidget: %s %s \"%s\".", "Could not", 
"get Bitmap geometry information for Image ", 
XtName(w)); 

XtAppError(XtWidgetToApplicationContext(w), buf); 




} 



} 



/♦ 



Action Procedures 



*/ 



static void Notify(w,event,params,num_paranis) 



Widget 



w; 



XEvent 



*event; 



CIIOCTITI ITC CMPPT m\ (I P W 
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String *paranis; 

Cardinal *num_paranis ; 

{ 

Image Widget iw=(IniageWidget)w; 

XButtonEvent *buttone vent = &event- > xbutton; 

int posn[2] = {buttonevent- > x,buttonevent- > y} ; 

if (iw->image.map_width< =posn[0] 1 1 posn[0]<0 1 1 

iw->image.map_height< =posn[l] || posn[l] <0) Dprintf("No 

IniageNotify\n"); 
else { 

Dprintf("ImageNotify\n"); 
XtCalICallbackList(w,iw- > image.callbacks,posn); 

} 

} 
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source/ImpKlicsTestSA.c 



/* 

Test harness for KlicsFrameSAQ in Klics.SA 

*/ 



^include "xwave.h" 
#include "KKcsSA.h" 



void ImpKlicsTestSA(w,closiire,call_data) 

Widget w; 

caddr_t closure, call_data; 



int sizeY=SA_WIDTH*SA_HEIGHT, 

siz)eUV=SA_WIDTH*SA_HEIGHT/4; 
short *dst[3]={ 

(short ♦)MALLOC(sizeof(short)*sizeY), 

(short *)MALLOC(sizeof(short)*sizeUV), 

(short *)MALLOC(sizeof(short)*sizeUV), 
}. ♦srcm; 

Video video = (Video)MALLOC(sizeof (VideoRec)) ; 
int i, z; 

char rile_name[STRLEN]; 
Bits bfp; 

Boolean stillvid; 

strcpy(video- > name,((XawListRe£uraStrjct *)cail_data)- > string); 
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sprmtf(file_nanie, " %s%s/%s%s\0",global- > hoine,KLICS_SA_DIR,video-> name,KLICS 
_SA_EXD; 

b^=bopen(file_name,"r"); * 

bread(&stillvid, 1 .bfjp); 

bread(&video- > size[2] ,sizeof(mt)*8,bfp); 

video- >data[0]= (short ♦*)MALLOC(sizeof(short *)*video->size[2]); 

video- >data[l]= (short **)MALLOC(sizeof(short *)*video->size[2]); 

video- >data[2]= (short **)MALLOC(sizeof(short *)*video->size[2]); 

video- > disk = False; 

video- > type =YUV; 

video- > size[0] = S A_WIDTH; 

video- > size[l] =SA_HEIGHT; 

video- > UVsample[0] = 1 ; 

video- > UVsainpie[l] = 1 ; 

video- > trans.iype =TRANS_None; 

for(z=0;z<video->size[2];z-l-+) { 

NewFrame(video,z); 

src[0] =video- > data[0][zl ; 

src[l] =video- > data[l][z] ; 

src[2] =video- > data[2][z] ; 

KlicsFraineSA(z= =0 1 1 stillvid?STILL:SEND,src,dst,bQ)); 

SaveFrame(video,z); 

FreeFrame(video,z); 

} 

bclose(bfp); 

video- > next=global- > videos; 
global- > videos = video ; 
XtFree(dst[0]); 
XtFree(dst[l]); 
XtFree(dst[2]); 
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source/ImportKIics.c 



/* 

* Importing raw Klics binary files 
*/ 

#include "xwave.h" 
#include "Klics.h" 

extern Bits bopenQ; 

extern void bcioseQ, breadQ, bwriteQ, bflushQ; 

extern void SkipFrameQ; 

extern int HuffReadQ; 

extern Boolean BIockZeroQ; 

extern void ZeroCoeffsQ; 

extern int ReadTntQ; 

extern int DecideQ; 

extern double DecideDoubleQ; 

Boolean BoolToken(bfp) 

Bits bfjp; 

{ 

Boolean token; 

bread(&token, 1 ,bfp) ; 
renim(token); 
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void HuffBlock(bIock,bfp) 

Block block; 
Bits bfp; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++)for(Y=0;Y<BLOCK;Y++) 
block[X][Y] =HuffRead(bfp); 

} 

void PrevBIock(old,addr,x,y,z,oct,sub,chaimel,ctrl) 

Block old, addr; 

int X, y, z, oct, sub, channel; 

CompCtrl Ctrl; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 

addr[X][Y]=Access((x< < 1)+X,(y < < l)+Y,oct,sub,Size(ctrl->dst,channel,0)); 
old[X][Y] =ctrl- > dst- > data[channel][z] [addr[X][Y]] ; 

} 

} 

void DeltaBlock(new,oId,delta,step) 



Block new, old, delta; 
int step; 
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int 



X. Y; 



for(X=0;X <BLOCK;X+ +) for(Y=0;Y< BLOCK; Y+ +) 



new[X][Y]=oId[X][Y]+delta[X][Y]*step+(deltapC][Y]! =0?negif(delta[X][Y] <0,(step-l) 
>>1):0); 

} 

void UpdateBlock(new,addr,z,chaiinei,ctrl) 

int z, channel; 
Block new, addr; 
CompCtrl Ctrl; 



int 



X. Y; 



for(X=0;X<BLOCK;X+ +) for(Y=0;Y< BLOCK; Y+ +) 

Ctrl- > dst- > data[channel][z][addrpC] [Y]] =(short)new[X][Y]; 



void ReadKIicsHeader(ctrl) 



CompCtrl Ctrl; 



KlicsHeaderRec 



head; 



int 



i; 



Video dst = Ctrl- > dst; 



if (KlicsHeaderRec), 1 ,ctrl- > bfp- > fp); 
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Ctrl- > stillvid = head . stillvid ; 

Ctrl- > auto_q =head.auto_q; 

Ctrl- > buf_switch=head.buf_switch; 

Ctrl- > quant_const=head-quant_coiist; 

Ctrl- > thresh_const = head. thresh_const; 

Ctrl- > cmp_const=head.cmp_const; 

Ctrl- > f5ps=head.fps; 

for(i =0;i < 5;i + +) Ctrl- > base_factors[i] = head.base_factors[i] ; 

ctrl-> diag_factor=head.diag_factor; 

Ctrl- > chrome_factor=head.chrome_factor; 

Ctrl- > decide=head.decide; 

strcpy(dst- > iiaine,ctrl- > bm_iiame); 

dst- > type = head.type; 

dst- > disk=head.disk; 

dst- > gamma = head, gamma; 

dst- > rate =head. rate; 

dst- > start=head.start; 

for(i=0;i <3;i+ +) dst- > size[i] ==head.si2e[i]; 

for(i=0;i <2;i+ +) dst- > UVsample[i] =head,UVsample[i]; 

dst- > trans =head.trans; 

dst- > precision =head.precision; 

for(i=0;i < (dst- > type= =M0N0?1 :3);i+ +) 

dst- >data[i]= (short **)MALLOC(dst->size[2]*sizeof (short *)); 

} 

void WriteKlicsHeader(ctrl) 
CompCtrl Ctrl; 



{ 

KlicsHeaderRec 
int i; 



head; 
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head,stillvid=ctrl- > stillvid; 
head-auio_q=ctrl- > auto_q; 
head. buf_switch = Ctrl- > buf_switch; 
head.quant_const=ctrl- > qxiant_coiist; 
head.thresh_const=ctrl- > thresh_const; 
head. cinp_const= Ctrl- > cmp^const; 
head, fps = Ctrl- > fps ; 

for(i=0;i <5 ;i + +) head,base_factors[i] =ctrl- > base_factors[i] ; 

head.diag_factor =ctrl- > diag_factor; 

head.chrome_factor=ctrl- > chrome_factor; 

head.decide =ctrl- > decide; 

head, type = Ctrl- > dst- > type; 

head.disk=ctri- > dst- > disk; 

head.gamma =ctrl- > dst- > gamma; 

head.rate=ctrl- > dst- > rate; 

head.start=ctrl- > dst- > start; 

for(i =0;i < 3;i+ +) head.size[i] =ctrl- > dst- > size[i]; 

for(i=0;i<2;i+ +) head,UVsample[i] =ctrl->dst-> UVsample[i]; 

head.trans =ctri- > dst- > trans; 

head.precision=ctrl- > dst- > precision; 

fwrite(&head,si2eof(KlicsHeaderRec), 1 ,ctrl- > bfp- > fp); 

} 

void KlicsTree(mode,x,y,z,oct,sub,channel,ctrl) 

int mode, x, y, z, oct, sub, channel; 
CompCtrl Ctrl; 

{ 

Block addr, old, new, delta, 2ero_block={{0,0},{0,0}}; 

double nonns[3] = {ctrl- > quant_const,ctrl- > thresh_const,ctrl- > cmp_const} ; 

int step; 



CIIDCTITIITC CUCrr /Dill P 
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PrevBlock(old,acidr,x,y,z,oct,sub,channel,ctrl); 
if (mode! = VOID) { 

CalcNonnals(ctrl,oct,sub,chamiel,nonns); 
step=nonns[0] < 1.0?l:(mt)nonns[0]; 
if (mode= =S'nLL 1 1 BlockZero(oId)) { 

if (BoolToken(ctrl->bfp)) { /* NON_ZERO_STILL */ 
Dprintf(''NON_ZERO_STILL\n"); 
HufEBlock(delta,ctrl- > bfp); 
DeltaBlock(iiew,old,delta,step); 
UpdateBlock(new ,addr, z,chaimel,ctrl) ; 
} else { 

Dpriiitf(''ZERO_STILL\n"); 

mode=STOP; /* ZERO_STILL */ 

} 

} else { 

if (!BoolToken(ctrl- > bfp)) { /* BLOCK_SAME */ 

Dprintf("BLOCK_SAME\n"); 

mode=STOP; 
} else { 

if (!BoolToken(ctrl->bfp)) { /* ZERO_VID */ 

Dprintf("ZERO_VID\n"); 

ZeroCoeffs(ctrl- > dst- > data[channel][z] ,addr); 

mode=VOID; 
} else { /♦ 

BLOCK_CHANGE */ 

Dprintf("BLOCK_CHANGE\n"); 
HuffBlock(delta,ctrl- > bfp); 
DeltaBIock(new,oId,delta,step) ; 
UpdateBlock(new,addr,2.chaimel,ctrl); 

} 

} 

} 
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} else { 

if (BlockZero(old)) mode=STOP; 
else { 

ZeroCoeffs(ctrl- > dst- > data[channell[z] ,addr); 
mode=VOID; 

} 

} 

if (oct>0 && mode! =STOP) { 

Boolean decend=mode= =VOID?Tiue:BoolToken(ctrl- > bfjp); 
int X, Y; 



Dprintf("x=%d, y=%d, oct=%d 5ub=%d mode 
%d\ii",x,y,oct,sub,mode); 

if (decend) { 

if (mode! = VOID) Dprintf("OCT_NON_ZERO\n"); 
for(Y=0;Y<2;Y++) for(X=0;X<2;X++) 

KlicsTree(mode,x*2 +X,y*2 + Y,z,oct-l ,sub,chamiel,ctrl); 
} else if (mode! = VOID) Dprintf("OCT_ZERO\n"); 

} 

} 

void KlicsLPF(mode,z,ctrl) 



CompCtrl Ctrl; 
int mode, z; 



{ 

Block addr, old, new, delta; 

int channel, channels =ctrl-> dst- > type ==MONO? 1:3, x, y, 
octs Jum =ctrl- > dst- > trans . wavelet. space[0] , 

si2e[2] = {Size(ctrl- > dst,0,0) > > octs Jum -f 1 ,Si2e(ctrl- > dst,0, 1) > > octsjum-h 1 } ; 
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for(y=0;y<si2e[l];y + +) for(x=0;x<size[0];x + +) { 
Boolean lpf_Ioc = True ; 

if (mode!=STILL) { 

lpf_loc=BoolToken(ctrl->bfp); /* 
LPF_LOC_ZERO/LPF_LOC_NON_ZERO */ 

Dprintf(" %s\n" .lpf_loc?"LPF_LOC_NON_ZERO" : "LPF_LOC_ZERO"); 
} 

if (Ipfjoc) for(channeI=0;channeI<chaimels;chaimel++) { 
int 

octs=ctrl->dst->trans.wavelet.space[ctrl->(ist->type==YUV && channel! =0?1:0], 

X, Y, step, value, bits=0; 

double 

norms[3] = {ctrl- > quant_const,ctrl- > thresh_const,ctrl- > cn^)_const} ; 

PrevBlock(old,addr,x,y,z,octs-l ,0,channel,ctrl) ; 
CaIcNonnals(ctrl,octs-l ,0,channel,norms); 
step=nonns[0] < 1.0?l:(int)norms[0]; 
if (mode==STILL) { 
for(bits=0, 

value=((l < <8+ctrl->dst->precision)-l)/step;value! =0;bits++) 

value = value > > I; 
for(X=0:X < BLOCK;X+ +) for(Y=0; Y <BLOCK; Y+ +) 

deita[X][Y] =ReadInt(bits,ctrl- > b^); 
DeltaBlock(new,old,delta,step); 
UpdateBlock(new,addr,z,cfaannel,ctrl); 
} else { 

if (BoolToken(ctrl->bfp)) { /* 
LPF_ZERO/LPF_NON_ZERO */ 

Dprintf("LPF_NON_ZERO\n"); 
KuffBlock(deiia,ctrl- > bfp); 
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DeltaBlock(new,oId,delta,step) ; 
UpdateBlock(new,adcir,z,chaiinel,ctrl); 
} else DprintfC'LPF ZEROVn"); 



} 

} 

void KlicsFranie(ctrl,z) 

CompCtrl Ctrl; 
int z; 

{ 

Video dst=ctrl->dst; 

int sub, channel, x, y, mode=ctrl->stillvid 1 1 z==0?STILL:SEND, 
octs_Ium=dst- > trans. wavelet.space[0] , 

size[2]={Size(dst,0.0)> > l+octsJum,Size(dst,0,l)> > l+octsjum}; 
NewFranie(dst,z); 

CopyFrame(dst,z-l,z,ctrl->stillvid || z==0); 
if (z!=0 && ctri->auto_q) { 

ctrl->quant_const+=(double)(fflSTO/2+ReadInt(fflSTO_BITS,ctrl->bfp))*fflSTO_DE 
LTA*2.0/fflSTO-fflSTO_DELTA; 

Ctrl- > quant_const=ctrl- > quant_const< 0.070.0: Ctrl- > quant_const; 
Dprintf("New quant %f\n",ctrl->quant_const); 

} 

KlicsLPF(mode ,z, Ctrl) ; 

for(y=0;y<size[l];y++) for(x=0;x<size[0];x++) { 
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Dprintf("LOCAL_NON_ZERO\n"); 

for(chamiel=0;cliannel < (dst- > type = =M0N0?1 :3);channel + +) { 
int octs = dst- > trans . wavelet. space[dsi- > type = = YUV 

&& channel! =0?1:0]; 

if (BooIToken(ctrl- > bfip)) { 

Dprmtf("CHANNEL_NON_ZERO\n"); 
for(sub = 1 ;sub < 4;sub + +) 

KlicsTree(mode,x,y ,z,octs- 1 ,sub,chamiel,ctrl) ; 

} else Dprintf("CHANNEL_ZERO\n"); 

} 

} else Dprintf("LOCAL_ZERO\n"); 

} 

} 

void ImportKlics(w,closure,call_ciata) 



Widget w; 

caddr_t closure, call_data; 

{ 

char file_name[STRLEN]; 
CompCtrlRec Ctrl; 
int i, z; 

ctrl.dst = (Video)MALLOC(sizeof(VideoRec)) ; 
strcpy(ctrI.bin_name,((XawListRetumStnict *)call_data)- > string); 



sprintf(file_name."%s%s/%s%s\0",globaI->home,KLICS_DIR,ctri.bin_name,KLICS_EX 
T); 

ctrl.bfp =bopen(file_name, "r"); 
ReadKlicsKeader(&ctrl) ; 
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if (ctrl.dst->disk) SaveHeacier(ctrl.dst); 
for(z=0;z<ctrl.dst->size[2];z++) { 

if(z==0 li !ctrl.buf_switch) KlicsFrame(&ctrl,z); 

else { 

if (BoolToken(ctrl.bfp)) KlicsFrame(&ctrl,z); 
else SkipFrame(ctrl.dst,z); 

} 

if(z>0){ 

SaveFrame(ctrl.dst,z-l); 
FreeFrame(ctrl.dst,z-l); 

} 

} 

SaveFrame(ctrl.dst,ctrl.dst- > size[2]-l); 
FreeFrame(ctrl.dst,ctrl.dst- > size[2]-l); 
bclose(ctrl.b^); 

ctrLdst- > next=global- > videos; 
global- > videos =ctrl.dst; 
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source/ImportKlicsSA.c 

/* 

* Importing raw Klics binary files 

* Stand Alone version 

^include "KlicsSA.h" 
extern void ConvolveQ; 

/* usefixl X definitions */ 
typedef char Boolean; 
#define True 1 
#define False 0 
#define String cliar* 

extern int HuffReadSAO; 

extern Boolean BlockZeroSAQ; 

extern void ZeroCoeffsSA(); 

extern int ReadlntSAQ; 

extern int Decides AQ; 

extern double DecideDoubleSAQ; 

Boolean BoolTokenSA(bfp) 

Bits bfp; 



/ 
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Boolean token; 

bread(&token,l,bfp); 
retum(token); 

} 

void HuffBIockSA(block,bfp) 

Block block; 
Bits bfp; 

{ . 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y+ +) 
block[X](Y] =HuffReadSA(bfp); 

} 

void PrevBiockSA(old,addr,x,y,oct,sub,channel,dst) 

Block old, addr; 

int X, y, Oct, sub, channel; 

short *dst[3]; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y++) { 

addr[X][Y]=AccessSA((x< < 1)+X,(y< < l)+Y,oct,sub,chamiel); 
old[X][Y]=dst[channel][addr[X][Y]]; 

} 

} 
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void DeltaBlockSA(new, old, delta, step) 



Block new, old, delta; 
int step; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X+ +) for(Y=0;Y < BLOCK; Y+ +) 



new[X]nn=old[X][Y]+delta[X]m*step+(delta[X][Y]! =0?negif(delta[X][Y] <0,(step-l) 
>>1):0); 

} 

void UpdateBlockSA(new,addr,channel,dst) 



int channel; 
Block new, addr; 
short *dst[3]; 

{ 

int X, Y; 



for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y+ +) 
dst[channel](addr[X] [Y]] = (short)new[X] [Y] ; 



void KlicsTreeSA(mode,x,y,oct,sub,channeI,dst,bfp,quant_const) 



int mode, x, y, oct, sub, channel; 
short *dst(3]; 
Bits bip; 



wo 94/23385 



PCT/GB94/00677 



- 169 - 

double quaiit_coiist; 

{ 

Block addr, old, new, delta, zero_block={{0,0},{0,0}}; 
double nonns[3] = {quant_const,thresh_const,cmp_const} ; 
int step; 

PrevBlockSA(old,addr,x,y,oct,sub,chamiel,dst); 
if (mode! = VOID) { 

CalcNonnalsSA(oct,sub,cliannel,nonns,quant_const); 
step=nDnns[0] < 1.0?l:(iiit)norms[0]: 
if (mode==STILL 1 1 BlockZero(old)) { 

if (BoolTokenSA(bfp)) { /♦ NON_ZERO_STILL */ 

Dprintf("NON_ZERO_STILL\n"); 

HuffBlockSA(delta,bft>); 

DeltaBlockSA(iiew,old,delta,step); 

UpdateBlockSA(new,addr,channel,dst); 
} else { 

Dprintf("ZERO_STILL\n"); 

mode=STOP; /* ZERO_STILL */ 

} 

} else { 

if (!BoolTokeiiSA(bfip)) { /* BLOCK_SAME */ 

Dprintf("BLOCK_SAME\n'') ; 

mode=STOP; 
} else { 

if (!BoolTokeiiSA(bfp)) { /♦ ZERO_VID */ 

Dprintf("ZERO_VID\n''); 

21eroCoeffsSA(dst[channel],addr); 

mode=VOID; 
} else { /* 

BLOCK CHANGE */ 
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Dprintf("BLOCK_CHANGE\n"); 
HuffBlockSA(deita,bfp); 
DeltaBlockSA(new,old,delta,step) ; 
UpdateBlockSA(new,addr,channel,dst); 



} 



} 



} 

} else { 

if (BlockZeroSA(old)) mcKie=STOP; 
else { 

ZeroCoeffsSA(dst[chaimel] .addr); 
mode = VOID; 

} 

} 

if (oct>0 && mode!=STOP) { 

Boolean decend=mode= =VOro?Trae:BoolTokeiiSA(bfp); 
int X, Y; 

Dprintfrx=%d, y=%d, oct=%d sub=%d mode 
%d\n'' ,x,y,oct,sub,mode); 

if (decead) { 

if (mode! =VOID) Dprintf("OCT_NON_ZERO\n"); 
for(Y=0;Y<2;Y++) for(X=0;X<2;X++) 

HicsTreeSA(mode,x*2+X,y*2+Y,oct-l,sub,chamiel,dst,b^,quant_const); 
} else if (mode!=VOID) Dprintf("OCT_ZERO\ii"); 

} 

} 

void KIicsLPF_S A(mode , dst , bfp , quant^const) 
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short *dstI3]; 
Bits bfp; 



double 



quantconst; 



Block addr, old, new, delta; 



int 



channel, channels=3, x, y, 
octs_lum=3, 



size[2]={SA_WIDTH> >octs_Ium+l,SA_HEIGHT> >octsJum+l}; 
for(y=0;y<size[l];y++) for(x=0;x<size[01;x++) { 



if (mode!=STILL) { 

lpf_loc=BoolTokenSA(bfp); /* 
LPF_LOC_ZERO/LPF_LOC_NON_ZERO ♦/ 

Dprintf(" %s\nMpf_Ioc?"LPF_LOC_NON_ZERO" : "LPF_LOC_ZERO"); 



if (Ipfjoc) for(channel=0;chamiel<channels;channeI++) { 
int octs=channel!=0?2:3, 



PrevBlockSA(old,addr,x,y,octs-l,0,channel,dst); 
CaicNonnalsSA(octs- 1 ,0,channel,norms, quant_const) ; 
step=nonns[0] < 1.0?l:(int)nonns[0]; 
if (mode==STILL) { 
for(bits=0. 



value=((l < <8+SA_PRECISI0N)-l)/step;value! =0;bits++) 

value = value > > 1; 



Boolean 



lpf_loc=Trae; 



} 



double 



X, Y, step, value, bits=0; 

norms[3] = {quant_const,thresh_consi,cmp_const} ; 
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for(X=0;X < BLOCK;X+ +) for(Y=0;Y < BLOCK; Y + +) 

delta[X][Y] =ReadIntSA(bits,bfp); 
DeltaBlockSA(new,old,delta,step); 
UpdateBlockSA(new,addr,channel,dst); 

} else { 

if (BoolTokenSA(bfp)) { /* LPF_ZER0/LPF_N0N_ZERO 

*/ 

Dprintf("LPF_NON_ZERO\n"); 
HiiffBlockSA(delta,bfip); 
DeltaBlockSA(new,old,delta,step); 
UpdateBlockSA(new,addr,chaimel,dst); 
} else Dprintf("LPF_ZERO\n"); 

} 

} 

} 

} 

void KlicsFrameSA(mode,src,dst,bfip) 

int mode; 

short *src[3], *dst[3]; 

Bits bfp; 

{ 

int sub, channel, x, y, i, 
octs_lum=3, 

si2e[2] = {SA_WIDTH > > 1 +octsJum,SA_HEIGHT > > 1 +octs_lum} ; 
double quant_const; 

bre3d{(char *)&quant_const, sizeof(double) ♦S ,bfp) ; 
KlicsLPF_SA(mode,dst,b^,quant_const); 
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for(y=0;y<si2e(l];y++) for(x=0;x<size[0];x++) { 
if (BoolTokenSA(bfp)) { 

Dprmtf("LOCAL_NON_ZERO\n"); 
forCchannel =0;chaimel < 3 ;chaimel+ +) {. 
int octs=chaimel!=0?2:3; 

if (BoolTokenSA(bfip)) { 

Dprintf("CHANNEL_NON_ZERO\n"); 
for(sub= 1 ;sub < 4;sub + +) 

KlicsTreeSA(mode,x,y,octs-l,sub,channel,dst,bfip,quant_const); 

} else Dprintf("CHANNEL_ZERO\n"); 

} 

} else Dpriiitf("LOCAL_ZERO\n"); 

} 

for(chamiel =0;channel < 3 ;channel + +) { 
ist 

frame_size[2] = {SA_WIDTH > > (channel = =0?0: 1).SA_HEIGHT > > (channel= =0?0: 1 
)}. 

frame_area=frame_si2e[0] *frame_size[l] ; 

for(i=0;i< frame_area;i+ +) src[channel][i] =dst[channel][i]; 

Convolve(src[channel],False,frame_si2e,channel==0?3:2,0); 
for(i=0;i<frame_area;i+ +) 
src[channel][i] =src[channel][i] > > SA_PRECISION; 
} 

} 
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source/InitFrame.c 



/* 

Initialise frame structure for Frame command widget 

*/ 

#include "../include/xwave.h" 

#defme FRAMEJCONS 14 

#defme TRANS_MENU 1 

#define COMP_MENU 2 



extern 


void 


CopyVideoO; 


extern 


void 


CompareO; 


extern 


void 


NAO; 


extern 


void 


FrameDestroyO; 


extern 


void 


ExamineO; 


extern 


void 


FramePointYNO; 


extern 


void 


FramelnfoO; 


extern 


void 


FrameMergeO; 


extern 


void 


MovieO; 


extern 


void 


PostScriptO; 


extern 


void 


SelectO; 


extern 


void 


SpectmmO; 


extern 


void 


NewPointO; 


extern 


void 


TransfonnQ; 


extern 


void 


CompressQ; 


extern 


String *VideoCurrentList(); 


extern 


void 


KlicsSAO; 



void InitFrame (w,closure,call data) 
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Widget w; 

caddr t closure, call data; 



{ 

XawListReturnStruct *naine=(XawListRetuniStract *)call_data; 
Video video =FindVideo(name- > string.global- > videos); 
Frame frame =(Frame)MALLOC(sizeof(FrameRec)); 
Widget shelip], form, widgets[FRAME_ICONS], 
trans_widgets[TRANS_MENU], comp_widgets[COMP_MENU]; 
Arg args[7]; 
Pixmap pixmap; 

int view[2] = { 15 + video- > size[0] , 15 + video- > size[l] } ; 
Fonnltem itemsG = { 

{"frmjcancel", "frame_close", 

{"ftm_copy", "copy", 

{"fnn_exam", "examine", 

{ "frm_point_jn" , "point_y " , 

{ "frm_transform" , "transform" , 
4,0,FW_icon_button, "fnn_trans_menu"} , 

{"fhn_info_yn", "info", 
5.0,FWJcon.NULL}, 

{"fnn_merge", "merge", 

{ " frmjcompress " , "code " , 
7,0,FW_icon_button,"fcm_comp_menu"}, 

{"frm_movie", "movie", 

{ "frm_postscript" , "postscript" , 

{"frmjcompare", "compare", 

{"fhn_view", NULL, 
0,l,FW_view,(String)view}, 

{"firm_laber', video- > name, 

{"frm_colors", "colors". 



0,0,FW_icon,NULL}, 
l,0,FW_icon,^fULL}, 
2,0,FW_icon,NULL}, 
3 ,0,FW_icon,NULL} , 



6,0,FW_toggle,NULL} . 



8,0,FW_icon,NULL}, 
9,0,FW_icon,NULL}, 

10,0,FWJcon,NULL}, 



0,12,FW_label,NULL}, 

13,12,FW_icon,NULL}, 



wo 94/23385 



PCT/GB94/00677 



- 176 - 

Selection sel = (Seiection)MALLOC(sizeof(SelectItem)) ; 
Menultem traiis_menu|TRANS_MENU] = { 

{ "trans_WaveIet" .smeBSBObjectClass, "Wavelet" .NULL} , 

}; 

Menultem comp_menu(COMP_MENU] = { 

{ '*comp_mCS " .smeBSBObjectClass, "KUCS",NULL} , 
{••comp_KUCS_SA" .smeBSBObjectClass, "KUCS SA",NULL}. 

}; 

XtCallbackRec frame_calID={ 

{FrameDestroy,(caddr_t)frame}, {Free,(caddr_t)sel}, {NULL,NULL}, 

{Copy Video. (caddr_t)vi(ieo} , {NULL.NULL} , 

{Examine, (caddr_t)frame}, {NULL.NULL}, 

{FramePointYN,(caddr_t)frame}. {NULL.NULL}. 

{FrameInfo,(caddr_t)frame}, {NULL,NULL}, 

{FrameMerge,(caddr_t)frame}, {NULL,NULL}, 

{Movie,(caddr_t)frame}, {NULL,NULL}. 

{PostScript,(caddr_t)frame}. {NULL.NULL}, 

{Select,(caddrj)sel}, {NULL.NULL}, 

{Spectrum, (caddr_t)frame} , {NULL.NULL} . 
}, image_callD={ 

{NewPoint,(caddr_t)frame}, {NULL.NULL}. 
}, trans_callD={ 

{Transform. (caddr_t)video}. {NULL.NULL}. 
}, compj:allQ={ 

{Compress.(caddr_t)video}, {NULL.NULL}, 

{KlicsSA,(caddr_t)video}. {NULL.NULL}, 

}; 

Colormap cmap = ChannelCmap(frame- > channel = (video- > type = = MONO 
j j video->trans.type!=TRANS_None)?0:3,vicleo->type,video->gainma); 

Dprintf("InitFrame\n"); 
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sel- > name = " video__Compare" ; 

sel- > button = "frm^compare" ; 

sel- > list jroc = VideoCurrentList; 

sel- > action_name = " Compare videos " ; 

sel- > action j)roc =Compare; 

sel- > action_closure = (caddr_t) video; 

frame- > video = video ; 

frame- > sheU=SheIlWidget("frm_sheU " .global- > toplevel,SWjop,cmap,NULL) ; 
fomi=FonnatWidget("frm_form" ,frame- > shell); 
frame- > image_widget=NULL; 

frame- > msg = NULL; 

frame- > zoom=0; 
frame- > frame =0; 

frame- > point_switch=False; 
frame- > point_merge = False; 

frame- > point = (Point)MALLOC(si2eof(PointRec)) ; 

frame- > point- > location[0] =0; 

frame- > point- > location[l] =0; 

ft^e- > point- > usage = 1 ; 

frame- > point- > next=global- > points; 

global- > points = frame- > point; 

frame- > palette=0; 

frame- > next = global- > frames; 
global- > frames = frame; 

GetFrame(video, frame- > frame); 
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pixmap = Updatelinage(firame) ; 

FillForni(form,FRAME_ICONS,items,widgets,frame_caIl); 

sheU[0]=SheUWidget("f^n_trans_menu^widgets[4],SW_menu,m^X,NUlX 

FiIlMenu(shell[0],TRANS_MENU,trans_meim,trans_widgets,trans 

sheU[l]=SheUWidget("f^n_comp_menu^widgets[7],SW_menu,NUIX,NlJLL); 

FillMenu(shell[l],COMP_MENU,comp_menu,comp_widgets,comp_call); 

frame- > point_merge_widget= widgets[6] ; 



XtSetArg(args[0],XtNbitmap,pixinap); 
XtSetArg(args[l],XtNwidth, video- > size[0]); 
XtSetArg(args[2],XtNheight,video- > size[l]); 
XtSetArg(args[3],XtNcaUback.image_caU); 



frame- > image_widget=XtCreateMamgedWidget(''frm_image'' ,imageWidgetClass,widget 
s[ll],args,FOUR); 

XtSetSensitive(frame- > image_widget,False); 

XtSetSensitive(widgets[13] ,PseudoColor= =global- > visinfo- > class); 

XtPopup(frame- > shell.XtGrabNone); 



Video FiiidVideo(name,video) 



String name; 
Video video; 



{ 

if (video == NULL) rettmi(NULL); 
else if (!strcmp(name,video->name)) retum(video); 
else retum(FindVideo(iiame, video- > next)); 

} 
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source/InitMain.c 



/* 

Initialise menu structure for Main command widget 



#include " . ./include/xwave.h" 



/* Save extems */ 

extern void VideoSaveO; 

extern void VideoXimSaveQ; 

extern void VideoDTSaveQ; 

extern void VideoMacSaveQ; 

extern void VideoHexSaveQ; 



/* List extems */ 



extern String *VideoListO; 

extern String *VideoDropListO; 

extern String *VideoCurrentList(); 

extern String *KiicsListO; 

extern String *KlicsListSAO; 

/* Import extems */ 

extern void ImportKlicsQ; 

extern void ImpKIicsTestSAQ; 



/* Main extems */ 
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extern void 


SelectO; 


extern void 


VideoCleanQ; 


CAICIU VOlU 


vuito, 


extern void 


VideoLoadO; 


extern void 


InitFrameO; 


extern void 


VideoDropO; 


extern void 


PlotGraphO; 



/* Function Name: InitMain 

* Description: Create main menu button & sub-menus 

* Arguments: none 

* Returns: none 
*/ 

#defme MAIN_^MENU 7 
#defme SAVE_MENU 5 
#defme IMPT^^MENU 2 

InitMainQ 

{ 

Widget fonn=FonnatWidget("xwave_form",global->toplevel), widgets[l], 

main_shell, main_widgets[MAIN_MENU], 

save shell, save_widgets[SAVE_MENU], 

inipt_shell, impt_widgets[IMPT_MENUJ: 
Fonnltem itemsD = { 

{"xwaveLogo" , "main",0,0,FWJcon_button,"xwave_mam_sh"} , 

}; 

Menultem main_menuQ = { 

{"mam_Open",smeBSBObjectClass,"Open a video",NULL}, 

{"mam_Attach",smeBSBObjectClass, "Attach a frame ".NULL}, 

{ "main_Save" .smeBSBprObjectClass, "Save a video" , "xwave_save_sii" } , 
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{"mam_Drop",smeBSBObjectClass,"Drop a video", NULL}, 
{•'mam_CIeaii",smeBSBObjectClass, "Clean out videos", NULL}, 
{ ''main_Impoit" ,smeBSBprObjectClass, "Import a 
video " , "xwave_impt_sh" } , 

{ "maiii_Quit" .smeBSBObjectClass, "Quit " ,NULL} , 
}, save_menuD={ 

{"save_menu_vid",smeBSBObjectClass,"Save xwave video",NULL}, 
{"save_meiiu_xim", smeBSBObjectClass, "Save xim video",NULL}, 
{"save_menu_dt",smeBSBObjectClass,"Save DT image",NULL}, 
{"save_meim_mac",smeBSBObjectCIass,"Save mac video",NULL}, 
{"save_menu_hex",smeBSBObjectClass,"Save hex dunq)",NULL}, 
}, impt_menuD={ 

{"impt_menu_klics" .smeBSBObjectClass, "KUCS" ,NULL}, 
{"impt_menu_klicsSA" .smeBSBObjectClass, "KUCS SA" .NULL}. 

}; 

static Selectltem selectionO={ 

{ " video_Open" . "xwaveLogo " , VideoList, "Open a 
video" .VideoLoad,NULL} , 

{ "frame Attach" , "xwaveLogo" , VideoCurrentList, "Attach a 
frame " .InitFrame, NULL} , 

{"video Drop", "xwaveLogo",VideoDropList, "Drop a 
video",VideoDrop,NULL}, 
}, save_selD={ 

{"save_vid","xwaveLogo".VideoCurrentList. "Save xwave 
video",VideoSave,NULL}, 

{ " save_xim" , "xwaveLogo " .VideoCurrentList, "Save xim 
video" .VideoXimSave.NULL} , 

{"save_dt","xwaveLogo",VideoCurrentList,"Save DT 
unage" , VideoDTSave.NULL} , 

{ " save_mac " , " xwaveLogo " , VideoCurrentList, " Save mac 
video " , VideoMacSave,NULL} , 

{"save_hex","xwaveLogo",VideoCarrentList,"Save hex 
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dump " . VideoHexSave.NULL} , 
}, impt_selD={ 

{ " impt_klics " , " xwaveLogo " .KlicsList, " Import 
KLICS " .ImportKUcs.NULL} . 

{•'impt_klicsSA","xwaveLogo",KlicsListSA,"Import KLICS 
SA" ,ImpKlicsTestSA,NULL} , 

}; 

XlCallbackRec main_caIlQ = { 

{Select,(caddr_t)&selection[OI} , {NULL,NULL} . 

{SeIect,(caddr_t)&seIection[l]}, {NULL.NULL}, 

{SeIect,(caddr_t)&selection[21} , {NULL.NULL} , 

{VideoCleaii,(caddr_t)NULL}. {NULL,NULL}. 

{Quit.(caddr_t)NULL}. {NULL.NULL}, 
}, save_caIID={ 

{Select,(caddr_t)&save_sel[0]}, {NULL,NULL}, 

{Select,(caddr_t)«SMave_seI[I] } , {NULL.NULL} , 

{Select,(caddr_t)&save_sel[2]}, {NULL.NULL}, 

{Select,(caddr_t)&save_sel[3]}, {NULL.NULL}. 

{Select,(caddr_t)&save_sel[4]}. {NULL.NULL}, 
}, impt_callO={ 

{SeIect,(caddr_t)&impt_sel[0]}, {NULL.NULL}, 

{Select,(caddr_t)&impt_sel[l]}. {NULL.NULL}. 

}; 

Dprintf("ImtMain\n"); 
FillForm(form.ONE,items.widgets,NULL); 

main_shell=ShellWidget("xwave_mam_sh".widgets[0].SW_menu,NULL.NULL); 

save_sheIl=SheUWidget("xwave_save_sh",main_sheII.SW_menu,NULL.NULL); 

impt_sheIl=ShellWidget("xwave_impt_sh".main_sheIl,SW_menu,NULL.NULL); 

FUIMenu(main_shell,MAIN_MENU.mam_menu.main_widgets.mam_call); 

FillMenu(save_shell,SAVE_MENU,save_menu,save_widgets,save_call); 

FiIlMenu(impt_sheU,IMPT_MENU, impt_menu, impt_widgets,impt_call) ; 
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source/KIicsS.c 



/* 

Full still/video Knowles-Lewis Image Compression System utilising HVS 
properties 

and delta-tree coding 

*/ 

#include "xwave.h" 
#inciude "Klics.h" 
^include <math.h> 

extern Bits bopenO; 

extern void bcloseQ, breadQ, bwriteO, bflushQ; 

extern WriteKlicsHeaderQ; 

/* token modes (empty) ♦/ 

#defme EMPTY 0 

#define CHA1WEL_EMPTY 1 

#define OCTAVE_EMPTY 2 

#defme LPF_EMPTY 3 

#defme FULL 4 

typedef struct _HistRec { 

int bits, octbits[3][5], Ipf, activity, target, token[TOKENS], coeff[129]; 

double q_const; 
} HistRec, *Hist; /* history record */ 

/* Function Name: Access 
* Description: Find index address from co-ordinates 
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* Arguments: x, y - (x,y) co-ordinates 

* oct, sub, channel - octave, sub-band and channel co-ordinates 

* width - image data width 

* Returns: index into vid->data[channel]{] [index] 
*/ 

int Access(x,y,oct,sub,widdi) 

int X, y, oct, sub, width; 

{ 

retum(((x< <l)+(sub> >l)+width*((y< <l)+(l&sub)))< <oct); 

} 

/* Function Name: LastFrame 

* Description: Find last frame encoded 

* Arguments: z - index of current frame 

* hist - history records 

* Returns: index of previous frame 
*/ 

int LastFrame(z,hist) 

int z; 
Hist hist; 

{ 

int i=z-l; 

while(hist[i].bits = =0 && i>0) i-; 
retum(i<0?0:i); 



wo 94/23385 



PCT/GB94/00677 



- 185 - 

/* Function Name: Decide 

* Description: Calculate value representing the difference between new and old 
blocks 

* Arguments: new, old - blocks to compare 

* mode - differencing algorithm {MAXIMUM | SIGABS | 
SIGSQR} 

* Returns: difference value 
*/ 

int Decide(new,oId,mode) 

Block new, old; 
int mode; 

{ 

int X, Y, sigma=0; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 
int n_o=new[X][Y]-old[X][Y]; 

switch(mode) { 
case MAXIMUM: 

sigma = Sigma > abs(n_o)?sigma:abs(n_o) ; 

break; 
case SIGABS: 

sigma +=abs(n_o); 

break; 
case SIGSQR: 

sigma += n_o*n_o ; 

break; 

} 
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retuni(sigma); 

} 

/* Function Name: DecideDouble 

* Description: Calculates normal w.r.t differencing algorithm 

* Arguments: norm - normal value 

* mode - differencing algorithm {MAXIMUM | SIGABS | 
SIGSQR} 

* Returns: new normal value 
*/ 

double DecideDouble(norm,mode) 

double norm; 
int mode; 

{ 

double ret; 

switch(mode) { 
case MAXIMUM: 

ret=norm; 

break; 
case SIGABS: 

ret=4.0*norm; 

break; 
case SIGSQR: 

ret =4 . O*norm*norm; 

break; 

} 

retum(ret); 

) 
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Boolean Decision(new,old,nonn,mode) 

Block new, old; 
double norm; 
int mode; 

{ 

retum((double)Decide(new,old,mode) < =DecideDoubIe(nonn,mode)); 

} 

Function Name: Feedback 

Description: Calculates new target activity from target bits and historical values 
Arguments: hist - history records 

curr - current frame 
taps - size of history window 
Returns: target activity 

int Feedback(hist,curr,taps) 

int curr; 
Hist hist; 
int taps; 

{ 

mt prev=curr, i; 
double ratio =0; 

for(i=0;i<taps && prev!=0;i++) { 
prev=LastFrame(prev,hist); 

ratio -h =(doubie)hisi[prev] . activity /(double) (hist [pre v] .bits-(prev = =0?hist[0] .ipf :0)) ; 



■ * 
* 

*/ 



SUBSTITUTE SWEET (flULE 26) 
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} 

remni((int)(ratio*(double)hist[curr] . target/(double)i)) ; 
Function Name: Filter 

Description: Calculates new q_const filtering historical values 
Arguments: hist - history records 

curr - current frame 
taps - size of history window 
filter - index to filter 
Returns: q_const 

double Filter(hist, curr,taps , filter) 

int curr; 
Hist hist; 
int taps, filter; 

{ 

double mac=hist[curr],q_const, sum ==1.0, coeff=1.0; 

int i, prev=curr; 

for(i=0;i<taps && prev!=0;i++) { 
prev = LastFrame(prev,hist) ; 
coeff =filter= =0?0:coeff/2.0; 
mac+ =hist[prev].q_const*coeff; 
sum+=coeff; 

} 

retum(mac/sum); 

} 



} 

/* 

aft 

* 

*/ 
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/* Function Name: Huf&nan 

* Description: Calculates the number of bits for the Huf&nan code representing 
level 

* Arguments: level - level to be encoded 

* Returns: nimiber of bits in codeword 
♦/ 

int Huf&nan(level) 

int level; 

{ 

retuni(level= =0?2:(absGevel) < 3?3 : 1 +absOevel))); 

} 

/* Function Name: HuffCode 

* Description: Generates Huf&nan code representing level 

* Arguments: level - level to be encoded 

* Returns: coded bits in char's 
*/ 

unsigned char *HuffCode(level) 
int level; 

{ 

unsigned char *bytes= (unsigned char *)MALLOC((7+Huffinan(ievel))/8); 

bytes[0] =(abs(Ievel) < 3?abs(Ievel):3) | (level<0?4:0); 
if (abs(Ievel)> 2) { 

int index=(7+HuffTnan(level))/8-l; 
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bytes[index] =bytes[index3 1 (1< < (Huffman(level)-1)%8); 

} 

retum(bytes); 

} 

unsigned char *CodeInt(number»bits) 
int number, bits; 

{ 

int len=(7+bits)/8; 

unsigned char *bytes= (unsigned char *)MALLOC(len); 
int byte; 

for(byte=:0;byte<len;byte-f +) { 
bytes[byte] =Oxff&number; 
number=number> >8; 

} 

retum(bytes); 

} 

int Readlnt(bits,bfp) 

int bits; 
Bits bfp; 

{ 

int ien=(7+bits)/8; 
unsigned char bytes[len]; 
int byte, number=0; 

KrooW/'KirtAc Kite Kfr^V 
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for(byte =0;byte < len;byte+ +) 

number=number|((int)bytes[byte]< <byte*8); 
number = (number < < sizeof(mt)*8-bits) > > sizeof(int)*8-bits; 
retum(number); 

} 

/* Function Name: HuffRead 

* Description: Read Huffman encoded number from binary file 

* Arguments: b^ - binary file pointer 

* Returns: decoded level 
♦/ 

int HufERead(bfip) 
Bits bfp; 

{ 

int value; 

imsigned char byte; 
Boolean negative =FaIse; 

bread(&byte,2,bfp); 
value =(int)byte; 
if (byte= = '\0') retum(0); 
else { 

bread(&byte,l,bfp); 
negative=(byte! = '\0'); 

} 

if (value < 3) remm(negif(negative, value)); 
for(byte='\0';byte= = '\0^value++) bread(&byte,l,bfip); 
remm(negif (negative , value- 1 ) ) ; 

} 



C\ IDPTtTI ITT" eUCITT /HI It C nc\ 
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Function Name: Quantize 
Description: RMS style quantizer 
Arguments: data - unquantised number 
q - quantizing divisor 
level - quantised to level 
Returns: quantized data & level 

int Quantize(data,q, level) 
int data, q, *level; 

{ 

int inag_level=abs(data)/q; 
♦level =negif(data<0,mag_leveI); 

retum(negif(data<0,mag_level*q+(inag_level!=0?(q-l)> > 1:0))); 

} 

Function Name: Proposed 
Description: Calculates proposed block values 
Arguments: pro - proposed block 

lev - proposed block quantized levels 
old, new - old and new block values 
decide - decision algorithm 
norms - HVS normals 
Returns: new==0, proposed values (pro) and levels (lev) 

Boolean Proposed(pro , lev , old , new , decide , norms) 
Block pro, lev, old, new; 



/* 

* 
* 
* 
♦ 

*/ 



/* 
* 

*/ 
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int decide; 

double nonns[3]; 

{ 

Block zero_block={{0,0},{0,0}}; 

int X, Y. step=nornis[0] < 1.0?l:(int)nonns[0]; 

Boolean zero =Decision(new,zero_block,nonns[l] ,decide); 



for(X=0;X <BLOCK;X+ +) for(Y=0;Y <BLOCK; Y+ +) 



pro[X][Y] =zero?0:old[X][Y] +Quantize(newpq[Y]-old[X][Y],step,&aev[X][Y])); 
retum(zeFo); 

} 

/* Function Name: ZeroCoeffs 

* Description: Zero out video data 

* Arguments: data - image data 

* addr - addresses 

* Returns: zeros data[addr[]Q] 



void ZeroCoeffs(data,addr) 

short *data; 
Block addr; 



{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) 
data[addr[X][Y]]=0; 
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/* Function Name: BlockZero 

* Description: Test if all block values are zero 

* Arguments: block - block under test 

* Returns: block==0 
*/ 

Boolean BlockZero(block) 
Block block; 



int X. Y; 

Boolean zero=Trae; 

for(X =0;X < BLOCK;X + +) for(Y =0; Y < BLOCK; Y+ +) 

if (block[X][Y]! =0) zero=False; 
retum(zero); 



} 



/* Function Name: SendToken 

* Description: Increments token frequency 

* Arguments: token - token to be transmitted 

* channel, sub, oct - co-ordinates 

* Ctrl - control record for compresssion 

* hist - history record 

* empty - zero state {EMPTY | CHANNEL_EMPTY 
OCTAVE^EMPTY | LPF^EMPTY | FULL} 

* branch - branch of tree (0-3) 

* Returns: encodes token 
*/ 



void SendToken(token,charineI,sub,oct,ctrI,hist,empty, branch) 
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int token, channel, sub, oct, *empty, branch; 
CompCtrl Ctrl; 
Hist hist; 

{ 

int fiill=FULL, i; . 
String 

token_name[TOKENS] = { "ZERO_STILL" , •'NON_ZERO_S'nLL'' , "BLOCKJ AME" , "ZE 
RO_VID", "BLOCK_CHANGE", 

T0CAL_ZERO\"LOCAL_NON_ZER0","CHANNEL_ZERO"."CHANNEL_NON_ZE 
RO","OCT_ZERO\"OCT_NON_ZERO", 

"LPF_ZERO", "LPF_NON_ZERO" , "LPF_LOC_ZERO". "LPF_LOC_NON_ZERO"} ; 

switch(*empty) { 
case EMPTY: 

if (token! =ZERO_STILL && token! =BLOCK_SAME) { 

SendToken(LOCAL_NON_ZERO,chamiel,sub,oct,ctrl,hist,&fuU,branch); 
for(i =0; i < channel; i + +) 

SendToken(CHANNEL_ZERO,i,sub,oct,ctrI,hist,&fiill,branch); 

*empty =CHANNEL_EMPTY; 

SendToken(token,channel,sub,oct,ctrl,hist,empty,branch); 

} 

break; 

case CHANNEL_EMPTY: 

if (token! =ZERO_S"nLL && token! =BLOCK_SAME) { 

SendToken(CHANNEL_NON_ZERO,channeI,sub,oct,ctrl,hist,&fiiIl,branch); 
for(i=l;i<sub;i++) 

SendToken(token==NON_ZERO_STILL?ZERO_STILL:BLOCK_S.\ME,channei,i,oct,ct 
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rl , his t, &ftxll , branch) ; 

♦empty = FULL; 

SendToken(token,chamiei,sub,oct,ctrI,hist,empty,braiich); 

} 

break; 

case OCTAVE_EMPTY: 

if (token! =ZERO_STILL &«& token! =BLOCK_SAME) { 

SendToken(OCT_NON_ZERO,chaimel,sub,oct,ctrl,liist,&full.branch); 
for(i=0;i <branch;i+ +) 

SendToken(token==NON_ZERO_STILL?ZERO_STILL:BLOCK_SAME,channei,sub,oc 
t,ctrl, hist,&full,branch) ; 

*en^ty=FULL; 

SendToken(token,channel,sub,oct,ctrl,hist,empty,branch); 

} 

break; 
case LPF_EMPTY: 

if (token! =LPF_ZERO) { 

SendToken(LPF_LOC_NON_ZERO,channel,sub,oct,ctri,hist,&full,branch); 

for(i=0;i<channel;i+ +) 
SendToken(LPF_ZERO,i,sub,oct,ctrl,hist,&full,branch); 

*empty=FULL; 

SendToken(token,channel,sub,oct,ctrl,hist,empty,branch); 

} 

break; 
case FULL: 

DprintfC" %s\n" ,token_name[token]); 

hist- > token[token] + + ; 

hist- > bits-f =token_bits[token]; 

hist- > octbits[channeI] [oct] + = token_bits [token] ; 

if (ctri- > bin_switch) 
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bwrite(&tokeii_codes[token] , token_bits[token] ,ctrl- > bfp); 
break; 

} 

} 

/* Function Name: ReadBIock 

* Description: Read block from video 

* Arguments: new, old, addr - new and old blocks and addresses 

* X, y, z, oct, sub, channel - co-ordinates of block 

* Ctrl - compression control record 

* Returns: block values 



/ 



void ReadBlock(new,oId,addr,x,y,z,oct,sub,channel,ctrl) 

Block new, old, addr; 

int X, y, 2, oct, sub, channel; 

CompCtrl Ctrl; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y =0;Y< BLOCK; Y++) { 

addr[X][Y]=Access((x< < 1)+X,(y < < l)+Y,oct,sub,Size(ctrl->src,channel,0)); 
newpC] [Y] = (int)ctrl- > src- > data[channel] [z][addr[X] [Y]] ; 

old[X][Y]=(int)ctrI->dst->data[channel][z][addr[X][Y]]; 

} 

} 

/* Function Name: CalcNormais 
* Description: Calculates HVS weighted nonnals 
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* Arguments: Ctrl - compression control record 

* oct, sub, channel - co-ordinates 

* norms - pre-initialised normals 

* Remms: weighted normals 
*/ 

void CalcNormals(ctrl,oct,sub,chamiel,norms) 

CompCtrl Ctrl; 

int oct, sub, channel; 

double norms[3]; 

{ 

Video vid=ctrl->dst; 

int nomi, base_oct=oct+(vid- > type= = YUV && 
channel! =0?vid- > trans,wavelet.space[0]-vid- > trans. wavelet.space[l] :0)+(sub= =0?1:0) 

for(norm=0;norm<3;nonn++) { 

if (norm!=0) norms[norm] *= ctrl->quant_const; 
norms[norm] *= 
Ctrl- > base_factors[base_oct]*(sub= =3?ctrl- > diag^factor: 1.0); 

if (channel! =0) nornis[norm] *= ctri->chrome_factor; 
nonns[norm] *=(double)(l< <vid-> precision); 

} 

} 

Function Name: MakeDecisions 

Description: Decide on new compression mode from block values 
Arguments: old, new, pro - block values 

zero - zero flag for new block 
norms - HVS normals . 



/* 

* 
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mode - current compression mode 
decide - comparison algorithm 
new compression mode 

int MakeDecisions(old,new,pro,zero,norms,mode,decide) 

Block new, old, pro; 
Boolean zero; 
double norms[3]; 
int mode, decide; 

{ 

Block zero_^block={{0,0},{0,0}}; 

int new^mode, np=Decide(new,pro,decide), no=Decide(new,old,decide); 

if (np < no && (double)no > DecideDouble(norms[mode= =S'nLL?l :2],decide) 
&& !zero) 

new_mode=mode==STILL 1 1 
(double)Decide(old,zero_block,decide) < =DecideDouble(norms[l] ,decide)?STILL:SEND; 
else new_mode=mode==SEND && np<no && zero?VOID:STOP; 
retum(new_mode); 

} 

int MakeDecisions2(oId,new,pro,lev,zero,norms,mode,decide) 

Block new, old. pro, lev; 
Boolean zero; 
double norms[3]; 
int mode, decide; 



* Returns: 
*/ 
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Block zero_block={{0,0},{0,0}}; 

int new_mode=mode==STILL i| BlockZero(old)?STILL:SEND, 
np=Decide(new,pro,decide), no=Decide(new,oid,decide); 

if (new_mode = = STILL) new_mode=np> =no j | zero 1 1 
BIockZero(lev)?STOP: STILL; 

else new_mode=zero &&. np<no?VOID:np> =no 1 1 
Decision(new,old,nonns[2],decide) 1 1 BlockZero(lev)?STOP:SEND; 

retuin(new_mode); 

} 

Function Name: UpdateCoeffs 
Description: Encode proposed values and write data 
Arguments: pro, lev, addr - proposed block, levels and addresses 
z, channel, oct - co-ordinates 
Ctrl - compression control record 
hist - history record 
Returns: alters Ctrl- > dst- > data[channel] [z] [addrQ Q] 

void UpdateCoeffs(pro,lev,addr,z,channel,oct,ctrl,hist) 

Block pro, lev, addr; 
int z, channel, oct; 
CompCtrl Ctrl; 
Hist hist; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X + +) for(Y=0;Y<BLOCK;Y++) { 
int bits=Hufftnan(lev[X][Y]), 



/* 
* 

Ik 
* 
* 
* 
* 

*/ 
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level =abs(lev[X][Y]); 



Ctrl- > dst- > data[chaiinel] [z] [addr[X] [Y]] = (sliort)pro[X] [Y] ; 

hist- > coeffllevel > 128?128:level] + + ; 

hist- > bits +=bits; 

hist- > octbits[channel][oct] -f- =bits; 

if (ctrl->bin_switcfa) { 

unsigned char *bytes = HuffCode(lev[X] [Y]) ; 

bwrite(bytes,bits,ctrl- > bfp) ; 
XtFree(bytes); 

} 

} 

} 



/* Function Name: SendTree 

* Description: Encode tree blocks 

* Arguments: prev_mode - compression mode 

* X, y, z, oct, sub, channel - co-ordinates 

* Ctrl - compression control record 

* hist - history records 

* empty - token mode 

* branch - tree branch number 

* Returns: active block indicator 
*/ 



Boolean SendTree(prev_mode,x,y,2,oct,sub,channel,ctrl,hist,empty,branch) 

int prev_mode, x, y, z, oct, sub, channel, *empty, branch; 
CompCtrl Ctrl; 
Hist hist; 
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{ 

Block addr, old, new, pro, lev; 
int new_mode, X, Y; 
double 

norms[3] = {ctrl->quant_const,ctrI->thresh_const,ctrl->cmp_^^ /* quant, thresh, 
compare */ 

Boolean active =FaIse; 

ReadBlock(new,old,addr,x,y,z,oct,sub,channel,ctrl); 
if (prev_mode!=VOID) { 
Boolean zero; 

CaIcNormals(ctrl,oct,sub,chamiel,norms); 

zero =Proposed(pro,lev,oid,new,ctrl- > decide, norms); 

/* 

new_mode =MakeDecisions(old,new,pro,zero,norms,prev_mode,ctrl- > decide); */ 

new_mode=MakeDecisions2(old,new,pro,lev,zero,norms,prev_mode,ctri->decide); 
switch(new_mode) { 

case STOP: 

/♦SendToken(prev_^mode = ==STIIX?ZERO_STIIX:BLOCK JAME,channel,sub,oct,ctrl,h 
ist, empty , branch) ; */ 

SendToken(prev_mode== STILL || 

BlockZero(old)?ZERO^STILL:BLOCK_SAME,channel,sub,oct,ctrl,hist,empty,branch) 
break; 

case STILL: 

case SEND: 

active = True; 

/*SendToken(prev_mode = =STILL?NON_ZERO_STILL:BLOCK_CHANGE,channel,sub 
, oct ,ctrl , hist , empty , branch) ; */ 
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SendToken(prev_mode== STILL || 
BlockZero(old)?NON_ZERO_SmL:BLOCK_CHANGE,chamel,sub,oct,ctrl^ 
branch); 

UpdateCoeffs(pro,lev,addr,z,chamiel,oct,ctrl,hist); 
break; 
case VOID: 

SendToken(ZERO_VID,chaiinel,sub,oct,ctrl,hist,empty,braiich); 

ZeroCoeffs(ctrl- > dst- > data[channel] [z] ,addr); 

break; 

} 

} else { 

if (BlockZero(old)) new_mode=STOP; 
else { 

ZeroCoe£fs(ctrl- > dst- > data[chaiinel] [z] ,addr); 
ne w_inode = VOID ; 

} 

} 

if (oct>0 && new_mode! =STOP) { 

int mt=OCTAVE_EMPTY. full=FULL; 

Dprintf("x=%d, y=%d, oct=%d sub=%d mode 
%d\n" ,x,y,oct,sub,new_mode); 

for(Y=0;Y<2;Y++)for(X=0;X<2;X++) 

(void)SendTree(new_mode,x*2 +X,y*2 + Y.z.oct-l ,sub,chaimel,ctrl,hist,&int,X+2*Y); 

if (nit= =OCTAVE_EMPTY && new_mode! =VOID) 
SendToken(OCT_ZERO,channel,sub,oct,ctrl,hist,&full,0); 
} 

retum(active); 

} 



/* Function Name: SendLPF 
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Encode LPF sub-band 
mcxie - compression mode 
z - frame number 
Ctrl - compression control record 
hist - history records 
encodes data 

void SendLPF(mode,z,ctrUhist) 

CompCtrl Ctrl; 
int mode, 2; 
Hist hist; 

{ 

Block new, old, pro, lev, addr; 

int channel, channels=ctrl->src->type==M0N0?l:3, x, y, full=FULL, 
octs Jum =ctrl- > src- > trans. wavelet.space[0] , 

size[2] = {Size(ctrl->src,0,0)> >octsJum+l,Size(ctrl->src,0,l)> >octsJum+l}; 

for(y=0;y<size[l];y-h+) for(x=0;x<size[0];x-h+) { 
int empty =LPF_EMPTY; 

for(chaimel =0;chaimel < channels;channel + +) { 

int octs =ctrl- > src- > trans . wavelet.space[ctrl- > src- > type = = YUV 
&& channel! =0?1:0], 

new_mode, X, Y, step, value, bits=0; 

double 

norms[3] = {ctrl- > quanL_const,ctri- > thresh_const,ctrl- > cmp_const} ; 



* 
*/ 



Description; 
Arguments: 



Returns: 



CalcNormals(ctrl,octs-l,0,channei,norms); 
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step=nonns[0] < LO?l:(int)iionns[0]; 
for(bits=0, 

value=((l < <8+ctrl->dst->precision)-l)/step;value!=0;bits + +) 
value = value> > 1; 
ReadBlock(new,old,addr,x,y,z,octs-l,d,chaiuiel,ctrl); 

/* Proposed */ 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) 

pro[X][Y] -oId[X][Y] +Quantize(new[X]|T]-old[X][Y],step,&(Iev[X]^ 

/* MakeDecisions */ 

new_mode=mode==STIIX?STIIi:Decision(new,old,nonn^ | | 

BlockZero(lev)?STOP:SEND; 

switch(new_mode) { 
case SEND: 

SendToken(IJ>F_NON_ZERO,chaimel,0.octs,ctrl,Wst,&empty,0^ 
UpdateCoeffs(pro,lev,addr,2,channel,octs,ctrl,hist); 

break; 

case STILL: 

for(X=0;X<BLOCK;X-h+) for(Y=0;Y<BLOCK;Y++) { 

Ctrl- > dst- > data[chaiinel] [z][addr[X][Y]] =(short)pro[X][Y] ; 

hist- > bits +=bits; 

hist- > octbits[channel][octs] + =bits; 

if (ctrl->bin_switch) { 

unsigned char *bytes=CodeInt(lev[X][Y],bits); 



bwrite(bytes,bits,ctri- > bfp); 
XtFree(bytes); 

} 
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} 

break; 
case STOP: 

SendToken(LPF_ZERO,channel,0,octs,ctrl,hist,&empty,0); 
break; 

} 

} 

if (mode! =STILL && empty = =LPF_EMPTY) 
SendToken(IJ»F_LOC_ZERO,chamel,0,octsJiim,ctrl,hist,&fu^ 
} 

hist- >lpf=hist-> bits; 



/* Function Name: LookAhead 

* Description: Examine base of tree to calculate new quantizer value 

* Arguments: z - frame number 

* Ctrl - compression control record 

* hist - history records 

* Returns: calculates new ctrl->quant_const 
*/ 



void LookAhead(z,ctrl,hist) 



CompCtrl Ctrl; 
int z; 
Hist hist; 



int X, y, sub, index, thresh[fflSTO], decide =ctrI-> decide, act, 
taract=Feedback(hist,zxtrl- > feedback), 
octs =ctrl- > src- > trans. wavelet.space[0] , 
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si2e[2] = {Size(ctrl->src,0,0)> > l-focts,Si2e(ctrl->src,0.1)> >l-hocts}; 
Block new, old, addr; 
double old_quant = Ctrl- > quaiit_const; 

Ctrl- > quant_const = 1 .0; 

for(index=0;index < fflSTO;mdex + +) thresh[mdex] =0; 
for(y=0;y<si2e[l];y++)for(x=0;x<size[0];x++) 
for(sub=l;sub<4;sub++) { 

double q_thresh[3], 
nornis[3] = {ctrl- > quant_const,ctrl- > thresh_const,ctrl- > cmp_const}; 
Block zero_block={{0,0},{0,0}}; 

ReadBlock(new,old;addr,x,y,z,octs-l,sub,0,ctrl); 
CalcNoniials(ctrl , octs- 1 , sub , 0 , norms) ; 

q_thresh[l]=(double)Decide(new,zero_block4ecide)/DecideDouble(norms[l],decide); 

q_thresh[2]=(double)Decide(new,old,decide)/DecideDouble(norms[2],decide); 

if (BlockZero(old)) (Lthresh[0]=q_thresh[l]; 

else q_thresh[0]=q_thresh[2] <CLthresh[l]?q_thresh[2]:q_tlu-esh[l^ 

if (ctrl->decide==SIGSQR) q_^thresh[0]=sqrt(q_thresh[0]); 

index = (int)((q_thresh[0]-old_quant + HIST0_DELTA)*fflST0/(fflST0_DELTA*2)) ; 

index =index < 0?0:index > HISTO-l?fflSTO-l :index; 
thresh[index] + + ; 

} 

for(index=HISTO-l, act=0;index> =0 && act <taract; index-) 
act + =thresh[indexl ; 

Ctrl- > quant_const = (doubIe)(index + 1)*HISTO_DELTA*2.0/HISTO +old_quant-H!STO 
DELTA; 

Ctrl- > quant_const=ctrl- > quant_const < 0.0?0.0:ctrl- > quant const; 
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Dprmtf( "Target bits %d act %d (real %d) adjust q_const to 
%3.2f\n",Mst[z].target,taract,act,ctrl- > quani_coiist); 

hist[z] . q_const=ctrl- > quant_const; 

ctrl-> quant_const=Filter(liist,z,ctrl- > feedback,ctrl-> filter); 
Dprintf("Post filtering q_coiist to % 3 .2f\n" ,ctrl- > quaiit_coiist) ; 
if (ctrl->biii_switch) { 

unsigned char *bytes = CodeInt(index + 1 -HIST0/2,fflST0_BITS) ; 

bwrite(bytes,fflSTO_BITS,ctrl- > bfp); 
XtFree(bytes); 

} 

} 

Function Name: CompressStats 
Description: Compile compression statistics 
Arguments: ctri - compression control record 

hist - history records 
Returns: plot graphs 

void CompressStats(ctrl,hist) 

CompCtrl Ctrl; 
Hist hist; 

{ 

FILE *fp_token, *fp_coeff, *fpJog, *fopen(); 

char file_name[STRLEN] ; 

int channel, z, i, sigma; 



ate 



sprintf(file_name, " %s%s/ %s. token % s\0 global- > home,PLOT_DIR,ctrl- > stats name,P 
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LOTEXT); 

fp_token=fopen(file_name, "w"); 



sprmtf(file_name, " %s%s/%s.coeff %s\0" .global- > home,PLOT_DIR,ctrI- > statsname.PL 
OT_EXT); 

fp_coeff =fopeii(file_iiame, "w"); 

sprintf(file_name,''%s%s/%s.log%s\0",global->home,PLOT_DIR,ctrl->stats_name,PLO 
T_EXT); 

fp_Iog=fopeii(file_name, "w"); 

fprmtf(fp_token,"\ "Tokens %s\n",ctrl->name); 

for(i=0;i<TOKENS;i++) { 
Sigma =0; 

for(z=0;z < Ctrl- > src- > size[2];z-»- +) sigma+ =hist[z] .token[i]; 
fipriiitf(fp_token,''%d %d\n",i,sigina); 

} 

fprintf(fp_coefT,"\"Coeffs %s\n" .Ctrl- > name); 
for(i=0;i<129;i++){ 
sigma=0; 

for(z =0;z < Ctrl- > src- > size[2] ;z+ + ) sigma + = hist[z] . coeff[i] ; 
fiprintf(fp_coeff, " %d %d\n" , i, sigma) ; 

} 

for(i=0;i<5;i++) { 

String titles[5] = { "treebits" , "activity " , "quant" , "bits" , "ratio" } ; 

fprintf(fp_log, "\n\ " %s\n" ,titles[i]); 
for(z=0;z < Ctrl- > src- > size[2] •,z+ +) 
switch(i) { 

case 0: fprintf(fp_log, " %d %d\n",z,hist(z].bits-hist[z].lpf): 
break; 

case 1: fprintf(fp_log, " %d %d\n",z,lust[z]. activity); 
break; 
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case 2: fprintf(fp_log,"%d %f\n",z,hist[z].q_const); 
break; 

case 3: fprmtf(fpJog."%d %d\n",z,hist[z].bits); 
break; 

case 4: fprmtf(fipJog, " %d 

%f\n" ,z,(double)(hist[z] .bits-(z= =0?hist[z] .lpf:0))/(double)hist[z] .activity); 

break; 

} 

} 

for(chamiel =0;chaimel < (ctrl- > src- > type = =MONO? 1 :3);channel + +) { 

int octs =ctrl- > src- > traiis.wavelet.space[ctrl- > src- > type = = YUV 
&& channel! =0? 1:01; 

for(i=0;i<=octs;i++) { 

fprintf(fip_log,"\n\"channel %d oct %d\n". channel,!); 
for(z =0;z < Ctrl- > src- > size[2] •,z++) 

fiprintf(^_log,"%d %d\n",z,hist[z].octbits[channel][i]); 

} 
} 

fclose(fp_token); fclose(fp_coeff); fclose(fpjog); 



/* Function Name: CopyFrame 

* Description: Copy frame or zero 

* Arguments: vid - video 

* from, to - source and destination ft^e numbers 

* zero - zero out flag 

* Returns : alters video- > data 

*/ 



void Copy Frame( vid , from , to , zero) 
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Video vid; 

int from, to; 

Boolean zero; 

{ 

int i, channel; 

for(channeI=0;channel < (vid- > type= =M0N0?l:3);channel+ +) { 
int size=Size(vid,channel,0)*Size(vid,channel,l); 

for(i=0;i < si2e;i+ +) 

vid- > data[channel] [to] [i] = zero?0 : vid- > data[channel] [from] [i] ; 

} 

} 

/* Function Name: CompressFrame 

* Description: Compress a Frame 

* Arguments: Ctrl - compression control record 

* z - frame number 

* hist - history records 

* target - target bits 
*/ 

void CompressFrame(ctrl,z,hist,target) 

CompCtrl Ctrl; 
int z, target; 
Hist hist; 

{ 

Video src=ctri->src, dst=ctrl->dst; 

int sub, channel, x, y, mode=ctrl->stillvid | j z==0?STILL:SEND, 
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octs_lurQ=src- > trans. wavelet.space[0] , 
size[2] = {Si2e(src,0,0)> > l+octsJuin,Size(src,0,l)> > l+octsjum}; 
NewFraine(dst,z); 

CopyFraine(dst,z-l,z,ctrl->stillvid 1 1 z==0); 

GetFrame(src,z); 

hist[z] . target = target; 

if (z! =0 8l8l Ctrl- > auto_q) LookAhead(z,ctrl,hist); 
SendLPF(mode,z,ctrl,«&hist[z]); 
DprintfCLPF bits %d\nMiist[z].lpf); 
hist[z] . q_const = Ctrl- > quant_const; 
for(y=0;y<size[l];y++) for(x=0;x<size[0];x-l--l-) { 
int empty=EMPTY, full=FULL; 

for(channeI =0;chaimel < (dst- > type= =M0N0?1 :3);channel + +) { 

int octs=src- > trans. wavelet. space[src- > type= = YUV && 

channel! =0?1:0]; 

for(sub=l;sub<4;sub++) { 
Boolean 

active =SendTree(mode,x,y ,z,octs-l ,sub,chamiei;ctrl,&hist[z] ,&empty,0) ; 

hist[z].activity+=channel==0 && active; 

} 

switch(empty) { 
case FULL: 

empty =CHANNEL_EMPTY; 
break; 

case CHANNEL EMPTY: 

SendToken(CHANNEL_ZERO,chamiel,sub,octs-l ,ctrl,&hist[z] ,&full,0) 
break; 
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} 

} 

if (empty ==EMPTY) 
SendToken(LOCAL_ZERO,chamiel,sub,octs_lum-l ,ctrl,&liist[z] ,&full,0); 
} 

Dprintf(" Activity : %d\n" ,liist[z] .activity); 
FreeFrame(src,z); 

} 

/* Function Name: SkipFrame 

* Description: Shuffle frame data as if current frame was skipped 

* Arguments: vid - video 

* z - frame number 

* Returns: alters vid- > data 
*/ 

void SkipFrame(vid,z) 

Video vid; 
int z; 

{ 

NewFrame(vid,z); 
CopyFrame(vid,z-l,z,FaIse); 

if(z>l){ 

GetFrame(vid,z-2); 
CopyFrame(vid,z-2,z-l,False); 
FreeFrame(vid,z-2) ; 

} 

> 

/* Function Name: CompressCtrl 
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* Description: Perform KUCS on a video 

* Arguments: w - Xaw widget 

* closure - compression control record 

* call_data - NULL 

* Returns: compressed video 
*/ 

void CompressCtrl(w,cIosure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

CompCtrl ctrl=(CompCtrl)closure; 

int sigma_bits. frame_count, z, i, buffer=0, frames = Ctrl- >src->size[2], 
bpf_in=(64000*ctrl- > bitrate)/ctrl- > src- > rate, 

bpf_out=(mt)((double)(64000*ctrl- > bitrate)/ctrl- > fps); 
FILE *fopenO; 
char fiIe_name[STRLEN]; 
HistRec hist[frames]; 
Message insg=NewMessage(NULL,60); 

msg- > rows=frames > 10?1 1: frames +(frames = = 1?0: 1); msg- > cols=30; 
if (global- >batch==NULL) { 

XtCallbackRec callbacksO = { 

{CloseMessage, (caddr_t)msg} , {NULL.NULL} , 

}; 

MessageWindow(FindWidget("frm_compress",w),msg,"KLICSMrue,callbacks); 
} 

BprintfC"CompressCtrl\n") ; 
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if (Ctrl- > src- > type = = YUV && 
(Ctrl- > src- > traiis.wavelet.space[0]! =ctrl- > src- > trans, wavelet. space[l] + Ctrl- > src- > U 
Vsample[0] |i Ctrl- > src- >UVsainple[0]!=ctrl-> src- > UVsample[l])) { 
Eprintf("Y-UV octaves mis-matched. Check UV-sample"); 
return; 

} 

Ctrl- > dst=CopyHea(ler(ctrl- > src); 
strcpy(ctrl- > dst- > name.ctrl- > name); 
if (Ctrl- > dst- > disk) SaveHeader(ctrl- > dst) ; 
if (ctrl->bin_switch) { 

sprintf(file_name,"%s%s/%s%s\0".global->home,mCS_DIR,ctrl->bin_name,KUCS 
EXT); 

Ctrl- > bfp=bopen(file_name, "w"); 
/* Write some sort of header */ 
WriteKlicsHeader(ctrl); 

} 

for(z=0;z<frames;z++) { 
hist[z].bits=0; 
hist[z].lpf=0; 
hist[z]. activity =0; 
hist[z].target=0; 

for(i=0;i <5;i+ -H) hist[z] .octbits[0][i] =0; 
for(i=0;i <5;i-l- -H) hist[z].octbits[l][i]=0; 
for(i=0;i <5;i-H +) hist[z].octbits[2][i] =0; 
for(i=0;i <TOKENS;i+ -f-) hist[z].token[i] =0; 
for(i=0;i< 129;i-t- -I-) hist[z].coeffri]=0; 
hist[z] . q_const =0. 0; 

} 

for(z=0;z<frames;z+-l-) { 

if (z==0 II !ctrl->buf_switch) { 

CompressFrame(ctrI,z,hist,bpf_out); 
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buffer = 3200*ctrl- > bitrate + bpf_in; 

} else { 

Boolean no_skip; 

buffer- =bpf_in; 
buffer=buffer < 0?0:buffer; 

no_skip=buffer<6400*ctrl-> bitrate; /* H.261 buffer size */ 
if (ctrl->bin_switch) bwrite(&no_skip,l,ctrl->bfp); 
if (no_skip) { 

CompressFrame(ctrl,z,hist,bpf_out/* +bpf_out/2-buffer*/) ; 
buffer+=hist[z].bits; 
} else SkipFraine(ctrl->dst,z); 

} 

if(z>0){ 

SaveFrame(ctrl- > dst,z-l); 
FreeFrame(ctrl- > dst,z-l); 

} 

Mprintf(msg,''%s%03d: %d 
bits\n",ctrl- >dst- > name.z+ctrl- > src- > start,hist[z].bits); 
Mflush(msg); 

} 

SaveFrame(ctrl- > dst,ctrl- > src- > size[2]-l); 

FreeFrame(ctrl- > dst,ctrl- > src- > size[2]-l); 

if (ctrl->bin_switch) { bflush(ctrl- > bfp); bclose(ctrl->bfp); } 

if (Ctrl- > stats_switch) CompressStats(ctrI,hist); 

Dprintf("Compression CompleteXn"); 

sigina_bits=0, frame_count=0; 

for(z=0;z< Ctrl- > src- >size[2];z++) { 

sigma_bits + =hist[z].bits; 

if (hist[z].bits!=0) fTame_count-l- + ; 

} 

if (ctrl->buf_switch) { 
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Dprintf("Buffer contains %d bits\n",buffer-bpf_m); 
Dprintf("FrameRate %4.1f 
Hz\n",(double)(ctrl- > src- > rate*(frame_count-l))/(doubIe)(ctrl- > src- > size(2]-l)); 
} 

if (frames >1) { 

Mprintf(insg, "Total: %d bits\n",sigma_bits); 
Mflush(insg); 

} 

Ctrl- > dst- > next=global- > videos; 
global- > videos =ctrl- > dst; 

} 

/* Function Name: BatchCompCtrl 

* Description: Batch interface to CompressCtrl 
*/ 

void BatchCompCtrl(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

CompCtrl ctrl=(CompCtrl)closure; 

if (Ctrl- > src == NULL) ctrl->src=FindVideo(ctrl->src_name,global->videos); 
CompressCtrl(w,closure,call_data); 

} 

/* Function Name: InitCompCtrl 

* Description: Initialise the compression control record 

* Arguments: name - name of the source video 

* Returns: compression control record 
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*/ 

CompCtrl InitCompCtrl(name) 

String name; 

{ 

CompCtrl Ctrl = (CompCtrl)MALLOC(sizeof(CompCtrlRec)) ; 
int i; 

Ctrl- > decide = SIGABS ; 
ctrl->feedback=4; 
Ctrl- > filter =0; 
ctrl->stillvid=True; 
Ctrl- > stats_s witch = False; 
Ctrl- > auto_q = True ; 
Ctrl- > buf_switch=True; 
Ctrl- > bin^switch = False; 
Ctrl- > cmp_const -0.9; 
Ctrl- > thresh_const=0.6; 
Ctrl- > quant_const=8.0; 
ctrl->fps=30.0; 
ctrl->bitrate=l; 
for(i=0;i<5;i++) { 

double defaults[5] = {1.0,0.32,0.16,0.16,0.16}; 

Ctrl- > base_factors[i] =defaults[i]; 

} 

Ctrl- > diag_factor= 1 .4142136; 
Ctrl- > chrome_factor=2.0; 
strcpy(ctrl- > src_name,name); 
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strcpy(ctrl- > stats_name,name); 
stn:py(ctrl- > bin_iiame,naine); 
retum(ctrl); 

} 

/* Function Name: Compress 
* Description: X Interface to CompressCtrl 
♦/ 

#defme COMPJCONS 25 
#defme VIDJCONS 15 

void Compress(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video video=(Video)closure; 

CompCtrl Ctrl = InitCompCtrI(video- > name) ; 

int i, space=video- > trans. wavelet.space[0] + 1; 

Numlnput num_inputs = (NuniInput)MALLOC(2*sizeof(NumInputRec)) ; 

Floatlnput flt_inputs = (FloatInput)MALLOC(6*sizeof(FloaanputRec)) , 

oct_inputs=(FloatInput)MALLOC(space*sizeof(FloatInputRec)); 

Message msg =NewMessage(ctrl- > name,NAME_LEN), 

msg_bin=NewMessage(ctrI->bin_name,NAME_LEN), 
msg_stats=NewMessage(ctrl- > stats_name,NAME_LEN); 
XtCallbackRec destroy^callQ = { 
{Free,(caddr_t)ctrl} , 
{ Free , (caddr_t)num_inputs} , 
{Free,(caddr_t)flt_inputs) , 
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{Free ,(caddr_t)oct_mputs} , 
{CloseMessage , (caddr_t)insg} , 
{CloseMessage,(caddr_t)msg_bm} , 
{CloseMessage,(caddr_t)msg_stats} , 
{NULL,NULL}, 

}; 

Widget parent=FmdWidget("frm_compress",XtParent(w)), 

shell=SheIlWidget("klics",parent,SW_below,NULL,destroy_caU), 
form=FonnatWidget("klics_fonn",shell), 

dec_sheIl=SheUWidget("klics_cng_dec",shell,SW_menu,NULL,NULL), dec_widgets[3], 

filt_shell=ShellWidget("lclics_cng_filt",shell,SW_menu,NULL,NULL). filt_widgets[2], 
widgets[COMP_ICONS] , vid_widgets[VID_ICONS] , 

oct_widgets[space*2] ; 

Fonnltem itemsQ = { 

{"klics_cancer,"cancel",0,0,FW_icon,NlJLL}, 
{"klics_confmn", "confinn" , l,0,FW_icon,NULL}, 
{"klics_tiUe" , "Compress a video" ,2,0,FW_Iabel,NULL} , 
{ "klics_vid_lab " , "Video Name: " ,0,3,FW_labeI,NULL} , 
{ "klics_vid" ,NULL,4,3 ,FW_text.(String)msg} , 

{ "klics_stats_Iab " , "Statistics: " ,0.4,FWJabeI,NULL} , 

{ "klics_stats " ,NULL,4,4,FW _jn,(String)&ctrl- > stats_switch} , 

{ "klics_stats_name" ,NULL,7,4,FW_text,(String)msg_stats} , 

{ "klics_bin_Iab" , "KUCS File: ",0,6,FWJabel,NULL} , 

( "klics_bin" .NULL,4,6,FW_yii,(String)&ctrI- > bin_switch} , 

{ "klics_bin_name " .NULL, 10,6,FW_text, (String)msg_biii} , 

{"kiicsdecjab" , "Decision: " ,0.9.FW_Iabel,NULL} , 

{ "kJics_dec_btn" , "SigmaAbs" ,4,9,FW_button, "klics_cng_dec" } , 

{"kIics_qn_float^NLTLL,QJ2,FW_floa^,(St^jlg)&fx^_inputs[0]}, 
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{ "klics_qn_scroIl" ,NULL,4, 12,FW_scroU,(String)&flt_inputs[0]} , 

{"kUcs_th_float^NUIX,044,FW_float,(St^ing)&flt_mputs[l]}, 
{ "klics_th_scroU",NULL,4, 14,FW_scroll,(String)&flt_inputs[l]}, 
{"kUcs_cm_float^^^JLL,0,16,FW_float,(String)&^t_inputs[2]}, 
{ "klics_cin_scroU" ,NULL,4, 16,FW_scroll,(String)&flt_inputs[2] } , 
{ •'kIics_ch_float" ,NULL,0, 18,FW_float,(String)&flt_inputs[3] } , 

{"ldics_ch_scroU\NUIX,448,FW_scroU.(String)&flt_mputs[3]}, 
{ "kIics_di_float" ,NULL,0,20,FW_float,(String)&flt_inputs[4] } , 
{"Idics_di_scrolI\>mii,4.20,FW_scroU,(String)ifeflt_inputs[4]}, 
{ "Idics_oct_form" ,NULL,0,22,FW_fonn,NULL} , 
{ "klics_vid_fonn" ,NULL,0,24,FW_form.NULL} , 
}, vid_itemsD={ 

{"klics_ic_lab","Image Comp: ",0,0,FWJabel,NULL}, 
{"ldics_ic",NULL, 1 .0,FW_yn,(Strmg)&ctrl- > stiUvid} , 
{"klicsJg_float^NUIX,0a,FW_float,(St^ing)&flt_inputs[5]}. 
{ "ldics_tg_scroII" .NULL, 1 , 1 ,FW_scroll,(String)&flt_inputs[5] } , 
{ "Wics j)x_int\NULL,0,3 ,FW_integer,(String)&num_inputs[0] } , 

{ "aics_px_down" ,NULL, 1 ,3 ,FW_down,(Strmg)&iiuin_inputs[0]} , 

{'*klicsj)x_up\NULL,63,FW_up,(Striiig)«fenum_mputs[0]}, 

{"klics_autoJab","AutoQuant:",0,5,FW_labeI,NULL}, 

{ ''klics_auto" .NULL, 1 .5 ,FW_yn,(String)&ctrI- > auto_q} . 

{ "klics_buf_lab" , "Buffer: " .0,8,FW_label,NULL} , 

{ "klics_bur .NULL, 1 .8,FW_yn, (Strmg)&ctrl- > buf_switch} . 
{ "klics_buf_btn", "None" . 1 1 ,8,FW_button, "klics_cng_filt"} , 
{"klics_hs_int'',NULL,0,10,FW_integer,(String)&num_inputs[l]}, 
{ "kiics_hs_down" .NULL, 1 , 10,FW_down,(String)&num_inputs[l] } , 
{ "klics_hs_up " .NULL, 14, 10,FW_up,(String)«&num_inputs[l]} , 
}, oct_items[2*space]; 
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Menultem dec_menuQ = { 

{ " klics_dec_max " , smeBSBObjectClass , "Maximum " ,NULL} , 
{"klics_dec_abs",smeBSBObjectClass,"SigmaAbs",NULL}, 
{ "klics_dec_sqr" .smeBSBObjectClass, "SigmaSqr" .NULL} , 

}, filt_menuO={ 

{ "ldics_riIt_none",smeBSBObjectClass, "None" .NULL} , 
{ "klics_filt_exp " .smeBSBObjectClass, "Exp " , NULL} , 

}; 

XtCallbackRec callbacksD = { 
{Destroy,(caddr_t)shell} , 
{NULL,NULL}. 
{CompressCtrl. (caddr_t)ctrl} , 
{Destroy .(caddr_t)shell} , 
{NULL,NULL}, 

{Change YN, (caddr_t)«&ctrl- > stats_switch} , {NULL.NULL} . 
{Change YN. (caddr_t)&ctrl- > bin_switch} , {NULL.NULL} , 
{FloatlncDec , (caddr_t)«&flt_inputs[0] } . {NULL.NULL} , 
{FloatIncDec,(caddr_t)&flt_mputs[l]}. {NULL.NULL}, 
{FIoatIncDec,(caddr_t)&flt_inputs[2]}. {NULL.NULL}, 
{FIoatIncDec,(caddr_t)&flt_mputs[3] } , {NULL.NULL} , 
{FloatlncDec, (caddrj)&nt_inputs[4] } , {NULL.NULL} , 

}, vid_calin = { 

{Change YN,(caddr_t)&ctrl- > stUlvid} , {NULL.NULL} , 
{FloatIncDec,(caddr_t)&flt_inputs[5]} . {NULL.NULL} , 
{ NumlncDec . (caddr_t)&num_inputs[0] } , {NULL, NULL} , 
{NumlncDec. (caddr_t)&nmn_inputs[0] } , {NULL, NULL} , 
{Change YN,(caddr_t)&ctrl- > auto_q} , {NULL.NULL}, 
{Change YN,(caddr_t)&ctrl- > buf_switch}, {NULL.NULL}, 
{NmnlncDec, (caddr_t)&num_inpuis[ 1 ] } , {NULL.NULL} . 
{NmnIncDec,(caddr_t)&num_inputs[l]} , {NULL.NULL} , 

}, dec_call[] = { 

/^imnIeVf**wi /'r'lHHT- t^-Prr•f-^-l. ^ y^or^i^a t fKJTTT T XTT TT T \ 
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{SimpleMenu,(caddrJ)&ctrl- > decide} , {NULL^NULL} , 
{SimpleMenu,(caddrJ)&ctrl- > decide} , {NULL,NULL}, 

}. mt_callD = { 

{SimpleMenu. (caddrj)&ctrl- > fdter} , {NULL,NULL} , 
{SimpleMenu, (caddr_t)cS:ctrl- > filter} , {NULL,NULL} , 

}, oct_caIl[2*space]; 

XFontStnict *foiit; 

Arg args[l]; 

insg->rows=l; msg->cols=NAME_LEN; 
msg_stats- > rows = 1 ; msg^stats- > cols = N AME_LEN ; 
nisg_bin->rows=l; insg_biii->cols=NAME_LEN; 
Ctrl- > src=(Video)closure; 

flt_inputs[0].fonnat= "Quant: %4.1f'; 
flt_inputs[0],max= 10; 
flt_inputs[0] ,111111=0; 

flt_ii^uts[0] .value = &ctrl- > quaiit_const; 

flt_ii^uts[l]. format = "Thresh: %4.ir; 
flt_inputs[l] .niax= 10; 
flt_inputs[l] .min=0; 

fit Jnputs[l]. value- &ctrl- > thresh_const; 

flt_mputs[2].fonnat="Comp: %4.1f"; 

fit jnputs[2] .max = 10; 

fl t_inputs [2] . min = 0 ; 

flt_inputs[2]. value = &ctrl->cmp_const; 

flt_inputs[3]. format = "Chrome: %4. If"; 
flt_inputs[3] . max = 5 ; 
flt_inputs[3] .min= 1 ; 
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flt_inputs[3] . value = &ctrl- > chrome_factor; 

flt_inputs[4].formai="Diag: %4.ir; 

fl t_inputs [4] . max = 2 . 0 ; 

flt_inputs[4] .inin= 1 .0; 

flt_inputs[4] . value = &ctrl- > diag_factor; 

flt_inputs[5].fonnat="Target: %4.ir; 
flt_inputs[5] .max =30.0; 
flt_inputs[5].min= 10.0; 
flt_inputs[5] . value = &ctrl- > fps; 

num_inputs[0].format="px64k: %ld"; 
num_ii^)uts[0] . max = 8 ; 
num_inputs[0] .min= 1 ; 
num_inputs[0]. value = &ctrl->bitrate; 

num_inputs[l].format= "History: %ld"; 
num_inputs [ 1 ] . max = 8 ; 
num_inputs [ 1 ] . min = 1 ; 
num_inputs[l].value= &ctrl- > feedback; 

for(i=0;i<space;i++) { 

String fonnat=(char *)MALLOC(20); 

if (i==0) sprintf(format, "Octave LPF: %%4.2r); 
else sprintf(foraiat, "Octave %3d: %%4.2f\space-i-l); 
oct_inputs[i] .fomiat=format; 
oct_inputs [i] . max =1.0; 
oct_inputs [i] . min = 0 . 0; 

oct_inputs[i] . value= &ctrl- > base_factors[space-i-l] ; 
oct_itenis[2*i] .name= "ldics_oct float" ; 
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oct_items[2*i] .contents =NULL; 
octJtems[2*i] .froniHoriz=0; 
octJtems[2*i].fromVert=i= =0?0:2*H; 
oct_items [2*i] . type = FW_float ; 
ocMtems[2*i].hook=(Strmg)&oct_ii^uts[i]; 
oct_itenis[2*i+ 1] .name = "klics_oct_scroH" ; 
octjtems [2*i + 1] . contents = NULL; 
oct_items[2*i+ l].froniHoriz= 1 ; 
oct Jtems[2*i + 1] .fromVert= i = =0?0:2*i-l ; 
oct_items[2*i + 1] .type =FW_scrolI; 
octJtenis[2*i+ 1] .hook=(String)&oct_inputs[i] ; 
oct_call[2*i] xallback=FloatIncDec; 
oct_call[2*i] xlosure===(String)c&oct_inputs[i] ; 
oct_call[2*i+ 1] .calIback=NULL; 
oct_call[2*i+l].closure=NULL; 

} 

FillFonn(fonn,COMP_ICONS-(video- > size[2] > 1?0: 1) , items, widgets,caUbacks) ; 
FillFonn(widgets[23] ,2*space,oct_items,oct_widgets,oct_call) ; 
FilIMenu(dec_shell,THREE,dec_menu,dec_widgets,dec_call); 
font=FindFont(widgets[12]); 

XtSetArg(args[0] ,XtNwidth,2 + TextWidth(0, "Maximum\nSigmaAbs\nSigmaSqr" ,font)) ; 
XLSetValues(widgets[12] ,args,ONE); 
if (video- >size[2]>l) { 

FillForm(widgets[24],VIDJCONS,vidJtems,vid_widgets,vid_call); 

FillMenu(filtjheU,TWO,filt_menu,filt_widgets,filt_caU); 

font=FindFont(vid_widgets[ll]); 

XtSetArg(args[0] ,XtNwidth,2 +TextWidth(0, "None\nExp" .font)); 
XtSetValues(vid_widgets[ 1 1 ] ,args, ONE) ; 

} 

XtPopup(shell,XtGrabExcIusive); 
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source/KIicsSA . c 

/* 

Full still/ video Knowles-Lewis Image Compression System utilising HVS 
properties 

and delta-tree coding 

Stand-Alone version uses fixed image format and static data strucmres 

*/ 

^include "KlicsSA.h" 
^include < math.h > 

extern void ConvolveQ; 

/* useful X definitions */ 

typedef char Boolean; 

#defme True 1 

#define False 0 

#defme String char* 

/* token modes (empty) */ 

#defme EMPTY . 0 

#define CHANNEL_EMPTY 1 

#defme OCTAVE_EMPTY 2 

#defme LPF_EMPTY 3 

#defme FULL 4 

/* Function Name: AccessSA 

* Description: Find index address from co-ordinates 

* Arguments: x, y - (x,y) co-ordiriaies 
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* Oct, sub, channel - octave, sub-band and channel co-ordinates 

* Returns: index into data[channel]D [index] 
*/ 

int AccessSA(x,y,oct,sub, channel) 
int X, y, oct, sub, channel; 

{ 

retuni(((x< <l)+(sub> >1)+(SA_WIDTH> > (channel = =0?0: l))*((y << l)+(l&sub) 
))<<oct); 

} 

/* Function Name: DecideSA 

* Description: Calculate value representing the difference between new and old 
blocks 

* Argximents: new, old - blocks to compare 

* Returns: difference value 
♦/ 

int Decides A(new, old) 

Block new, old; 

{ 

int X, Y, sigma=0; 

for(X=0;X <BLOCK;X+ +) for(Y=0;Y < BLOCK;Y+ +) 
Sigma + = abs(new[X] [Y]-oId[X] [Y]) ; 
remm(signia); 
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/* Function Name: DecideDoubleSA 

* Description: Calculates normal w.r.t differencing algorithm 

* Arguments: norm - normal value 

* Returns: new normal value 
*/ 

double DecideDoubleSA(norm) 
double norm; 

{ 

retum(4.0*norm); 

} 

Boolean Decisions A(new,old,norm) 

Block new, old; 
double norm; 

{ 

retum((double)DecideSA(new,old) < = DecideDoubleSA(norm)); ' 

} 

/* Function Name: HuffinanSA 

* Description: Calculates the number of bits for the Huffman code representing 
level 

* Arguments: level - level to be encoded 

* Returns: number of bits in codeword 

*/ 

int HuffinanSA(Ievel) 
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int level; 

{ 

retum(level = =0?2:(abs(level) < 3?3 : 1 +abs(level))); 

} 

/* Function Name: HuffCodeSA 

* Description: Generates Huffman code representing level 

* Arguments: level - level to be encoded 

* Returns: coded bits in char's 
*/ 

unsigned char *HuffCodeSA(Ievel) 
int level; 

{ 

unsigned char *bytes= (unsigned char ♦)MALLOC((7+Huf&nan(Ievel))/8); 

bytes[0] =(abs(level)<3?abs(level):3) | Gevel<0?4:0); 
if (abs(level)>2) { 

int iiidex=(7+Hufftnan(level))/8-l; 

bytes(index] =bytes[index] | (1< < (Huf&nanaevel)-1)%8); 

} 

retum(bytes); 

} 

unsigned char *CodeIntSA(number,bits) 



int number, bits; 
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{ 

int len=(7+bits)/8; 

unsigned char ♦bytes = (unsigned char *)MALLOC(Ien); 
int byte; 

for(byte=0;byte<len;byte++) { 
bytes[byte] =Oxff&number; 
number = number > > 8; 

} 

retuxn(bytes); 

} 

int ReadIntSA(bits,b^) 

int bits; 
Bits bfp; 

{ 

int len=(7+bits)/8; 
unsigned cliar bytes[Ien]; 
int byte, number=0; 

brea(i(bytes,bits,bfp); 
for(byte=0;byte<len;byte++) 

number=number| ((int)bytes[byte] < < byte*8); 
number= (number < < sizeof(int)*8-bits) > >sizeof(int)*8-bits; 
retum(number); 

} 

/* Function Name: HuffReadSA 

* Description: Read Huffman encoded number from binary file 

* Arguments: bfp - binary fiie pointer 
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* Returns: decoded level 
♦/ 

int HuffReadSA(bfp) 
Bits bfp; 

{ 

int value; 

unsigned char byte; 
Boolean negative = False ; 

bread(&byte,2.bfp); 
value =(int)byte; 
if (byte= = '\0')retum(0); 
else { 

bread(&byte,ltbfip); 
negative = (byte ! = '\0') ; 

} 

if (value < 3) retum(negif (negative, value)); 
for(byte=*\0*;byte= = '\0' ; value ++) bread(&byte,l,bfp); 
retum(negif (negative , value- 1)) ; 

} 

Function Name: Quantizes A 
Description: RMS style quantizer 
Arguments: data - unquantised number 
q - quantizing divisor 
level - quantised to level 
Remms: quantized data & level 



♦ 
* 

*/ 
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int QuantizeSA(data,q,level) 

int data, q, *level; 

{ 

int magjevel = abs(data)/q; 
♦level =negif(data < O.magjevel) ; 

renini(negif(data<0,mag_level*q+(mag_level!=0?(q-l)> > 1:0))); 

} 

/* Function Name: ProposedSA 

* Description: Calculates proposed block values 

* Arguments: pro - proposed block 

* lev - proposed block quantized levels 

* old, new - old and new block values 

* nonns - HVS normals 

* Returns: new==0. proposed values (pro) and levels (lev) 
*/ 

Boolean ProposedSA(pro,iev,old,new,nonns) 

Block pro, lev, old, new; 
double nonns[3]; 

{ 

Block zero_block={{0,0},{0,0}}; 

int X, Y, step=nonns[0] < 1.0?l:(int)norms[0]; 

Boolean zero=DecisionSA(new,zero_block,norms[l]); 

for(X=0;X < BLOCK;X+ +) for(Y=0; Y < BLOCK; Y+ +) 
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pro[X][Y] =zero?0:old[X][Y] +Quantize(new[X][Y]-old[X][Y],step,«&(Iev[X][Y])); 
retiim(zero); 

} 

Function Name: ZeroCoeffsSA 
Description: Zero out video data 
Arguments: data - image data 

addr - addresses 
Returns: zeros data[addr[]n] 

void ZeroCoeffsSA(data,addr) 

short *data; 
Block addr; 

{ 

int X. Y; 

for(X=0;X<BLOCK;X+ +) for(Y=0;Y<BLOCK;Y++) 
data[addr[X][Y]]=0; 

} 

/* Function Name: BlockZeroSA 

* Description: Test if all block values are zero 

* Arguments: block - block under test 

* Returns: block= =0 
*/ 

Boolean BlockZeroSA(block) 



/* 
* 

* 

* 

* 

*/ 



Block block; 
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{ 

int X, Y; 

Boolean zero — True ; 

for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y++) 

if (bIock[X][Y]! =0) zero=False; 
retum(zero); 

} 

/* Function Name: SendTokenSA 

* Description: Increments token frequency 

* Arguments: token - token to be transmitted 

* channel, sub, oct - co-ordinates 

* bfp - binary file pointer 

* empty - zero state {EMPTY | CHANNEL^EMPTY | 
OCTAVE_.EMPTY | LPF^^EMPTY I FULL} 

* branch - branch of tree (0-3) 

* Returns: encodes token 
*/ 

void SendTokenSA(token,channeUsub,oct,bfp,empty,branch) 

int token, channel, sub, oct, *empty, branch; 
Bits bfp; 

{ 

int full=FULL, i; 
String 

token_name[TOKENS] = { "ZERO_STILL" , "NON_ZERO_STILL" , "BLOCK^SAME" , "ZE 
ROVID " , "BLOCK_CHANGE" , 

"T or A I _7FRO" , "T or A I .NONZERO" , "CHANNEL ZERO","CHAJ^NEL NGN ZE 
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RO", "OCTZERO" , "OCTNONZERO" , 

"LPF_ZERO " , •'LPF_NON_ZERO" , "LPFLOCZERO " , "LPF_LOC_NON_ZERO"} ; 

switch(*empty) { 
case EMPTY: 

if (token! =ZERO_STILL && token! =BLOCK_SAME) { 

SendTokenSA(LOCAL_NON_ZERO,channel,sub,oct,bfp,4&full,branch); 

for(i =0;i < chaimel;i + +) 
SendTokenSA(CHANNEL_ZERO,i,sub,oct,bfp,&fuIl,branch); 

♦empty=CHANNEL_EMPTY; 

SendTokenSA(token,channeI,sub,oct,bfp,empty,branch); 

} 

break; 

case CHANNEL_EMPTY: 

if (token! =ZERO_STILL && token! =BLOCK_SAME) { 

SendTokenSA(CHANNEL_NON_ZERO,chamieI,sub,oct,bfp,&full,branch); 
for(i= l;i < sub;i+ +) 

SendTokenSA(token==NON_ZERO_STILL?ZERO_STILL:BLOCK_SAME,chamiel,i,oc 
t,bfp,&full,branch); 

♦empty =FULL; 

SendTokenSA(token,channel,sub,oct,bfp,empty .branch); 

} 

break; 

case OCTAVE_EMPTY: 

if (token! =ZERO_STILL && token! =BLOCK_SAME) { 

SendTokenSA(OCT_NON_ZERO,channel,sub,oct,bfp,&full,brancii); 
for(i =0; i < branch; i 4- + ) 

SendTokenSA(token==NON_ZERO_STILL?ZERO_STILL:BLOCK_SAME,channel,sub 
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, oc t , bfp , &fuIL branch) ; 

*empty=FULL; 

SendTokenS A(token, channel , sub, oct, bfp , empty , branch) ; 

} 

break; 
case LPF_EMPTy: 

if (token! =LPF_ZERO) { 

SendTokenSA(LPF_LOC_NON_ZERO,chaimel,sub,oct,bfp,&fiill,branch); 

for(i=0;i < chaimel;i+ +) 
SendTokenSA(LPF_ZERO,i,sub,oct,bfp,&full,branch); 

♦empty =FULL; 

SendTokenSA(token,cliaiinel,sub,oct,bfp,empty,branch); 

} 

break; 
case FULL: 

Dprintf(" %s\n" ,token_name[token]); 
bwrite(&token_codes[tokenl , token_bits[tokenl »bfp); 
break; 

} 

} 

/* Function Name: ReadBIockSA 

* Description: Read block from video 

* Arguments: new, old, addr - new and old blocks and addresses 

* X, y, oct, sub, channel - co-ordinates of block 

* src, dst - frame data 

* Returns: block values 
*/ 

void ReadBlockSA(new,old,addr,x,y,oct,sub, channel, src, dst) 
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Block new, old, addr; 

int X, y, oct, sub, channel; 

short *src[3], *dst[3]; 

{ 

int X, Y; 



for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y + +) { 

addr[X][Y]=AccessSA((x< <1)+X,(y< <l)+Y,oct,sub,channel); 
new[X][Y] =(int)src[channel][addr[X][Y]] ; 
oId[X][Y] =(int)dst[channel][addr[X][Y]]; 

} 

} 



/* Function Name: CalcNormalsSA 

Description: Calculates HVS weighted normals 

* Arguments: oct, sub, chaimel - co-ordinates 

* nomis - pre-initialised normals 
Returns: weighted nomials 

♦/ 

void CalcNormalsSA(oct,sub,channel,norais,quant_const) 

int oct, sub, channel; 

double norais[3], quant_const; 



int norai, base_oct= oct + (channel! =0?l:0)+{sub= =0?1:0); 

for(nonn=0;nonn<3;nonn-r+) { 

if (norm!=0) norms [norm] *= quant_const; 

normsfnorm] *= base_factorsroase_oct]*(sub= =3?diag_factor:L0); 
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if (channel! =0) nonns[nonn] *= chrome_factor; 
nonns[nonn] *=(double)(l< <SA_PRECISION); 

} 

} 

/* Function Name: MakeDecisions2SA 

* Description: Decide on new compression mode from block values 

* Arguments: old, new, pro - block values 

* zero - zero flag for new block 

* norms - HVS normals 

* mode - current compression mode 

* decide - comparison algorithm 

* Returns: new compression mode 
♦/ 

int MakeDecisions2S A(oId , new , pro , lev , zero , norms , mode) 

Block new, old, pro, lev; 
Boolean zero; 
double nonns[3]; 
int mode; 

{ 

Block zero_block={{0,0},{0,0}}; 

int new_mode = mode == STILL || BlockZeroSA(old)?STILL:SEND, 
np = DecideSA(new,pro), no =DecideSA(new,old) ; 

if (new_mode== STILL) new_mode=np> =no | j zero 1 1 
BlockZeroSA(lev)?STOP: STILL; 

else new_mode=zero && np<no?VOID:np> =no | j 
DecisionSA(new,oId,norms[2]) | | BlockZeroSA(Iev)?STOP:SEND; 

renim(new mode): 
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/* Function Name: UpdateCoeffsSA 

* Description: Encode proposed values and write data 

* Arguments: pro, lev, addr - proposed block, levels and addresses 

* channel, oct - co-ordinates 

dst - destination data 

* bfjp - binary file pointer 

* Returns: alters dst[channel][addrQn] 
*/ 



void UpdateCoeffsSA(pro,lev,addr,chamiei,oct,dst,bfp) 



Block pro, lev, addr; 

int channel, oct; 

shon *dst[3I; 

Bits bfp; 

{ 

int X, Y; 



for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 
int bits=HuffmanSAaev[X][Y]), 
level=abs(lev[X][Y]); 
unsigned char *bytes=HuffCodeSAaev[X][Y]); 

dst[channel][addr[X][Y]] =(short)pro[XI[Y]; 

b write(bytes , bits , bfp) ; 

XtFree(bytes); 
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/* Funciion Name: SendTreeSA 

* Description: Encode tree blocks 

* Arguments: prev^mode - compression mode 

* X, y, oct, sub, channel - co-ordinates 

* empty - token mode 

* branch - tree branch number 

* Returns: acdve block indicator 
♦/ 

Boolean 

SendTreeSA(prev_mode,x,y,oct,sub,channeUsrc,dst,empty,branch,quant_const,bfp^ 

int prev_modc, x, y, oct» sub, channel, *empty, branch; 
short *src[3], *dst[31; 
double quanf_const; 
Bits bfp; 

{ 

Block addr, old, new, pro, lev; 
int new^mode, X, Y; 

double norms[3]={quant_const,thresh_consixmp_const}; /* quant, thresh, 
compare */ 

Boolean active = False; 

ReadBlockSA(new,old,addr,x,y,oct,subxhannel,src,dst); 
if (prev_mode!=VOID) { 
Boolean zero; 

CalcNormalsSA(oct,sub,chaxmeLnonns,quant_const); 
zero = ProposedS A(pro , le v , o Id , new , norms ) ; 

new_mode = MakeDecisions2SA(old,new, pro, lev, zero, norms, prev mode); 
switchCnew^mode) { 
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case STOP: 

SendTokenSA(prev_mode== STILL j| 

BlockZeroSA(old)?ZERO_STILL:BLOCK_SAlVlExhannel.sub,oct,bfp,empty,branch); 

break: 
case STILL; 
case SEND: 

active =Trae; 

SemiTokenSA(prcv_raode== STILL || 

BIcK:kZero(oId)?NON_ZERO_STIIi:BLOCK_CHANGE,channel,sub,oct,bfp,empty,bran 
ch); 

UpdateCoeffsSA(pro,lev,addr,chaimel,oct,dst,bfp); 
break; 
case VOID: 

SendTokenSA(ZERO_VID,channel,sub,oct,bfp,empty,branch); 

ZexoCoeffsSA(dst[chaimel],addr): 

break; 

} 

} else { 

if (BlockZeroSA(old)) new__mode=STOP; 
else { 

ZeroCoeffsS A(dst[chaimeil ,addr); 
new_mode= VOID; 

} 

} 

if (oci>0 && new mode! =STOP) { 

int int=OCTAVE_EMPTY. full=FULL; 

Dprintf(''x=%d, y = %d, oct=%d sub=%d mode 
%d\n".x,y,oct.sub.new_mode); 

for(Y=0:Y<2;Y++) for(X=0;X<2;X++) 

(voici)SendTreeSA(new_mode.x*2 +X.y*2 + Y,oct-l ,sub,channel.src,ds£.&nit.X -!-2*Y,qua 
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ntconst.bfp); 

if (mt= =OCTAVE_EMPTY &&. new mode! = VOID) 
SendTokenSA(OCT_ZERO,channel.sub.oct,bfip,«&.full,0); 

} 

retum(active); 

} 

/* Function Name: SendLPF_SA 

* Description: Encode LPF sub-band 

* Arguments: mode - compression mode 
^ Returns: encodes data 

*/ 

void SendLPF_SA(mode,src,dst,bfp,quant_const) 

int mode; 

shon *src[3], ♦dstt3]; 

Bits bfp; 

double quant_const; 

{ 

Block new, old, pro, lev, addr: 
int channel, channels =3, x, y, full = FULL, 
octsJura=3, 

si2e[2] = {S A WIDTH > > octs lum + 1 ,S A^HHGHT > > ocis^lum -hi}; 

for(y=0:y<size[l];y-h-f) for(x=0;x<size[0];x + -h) { 
int empty = LPF^EMPTY; 



for(channei =0;channei < channels: channel + + ) { 
int octs=channe!! =0?2:3. 
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new_inode, X, Y, step, value, bits=0; 
double nonnsfS] = {quant_const,thresh_const,crap const}; 

CalcNonnalsS A(octs- 1,0, channel, norms, quantconst) ; 
step = norms [0] < 1 . 0? 1 : (int)norms(O] ; 

for(bits=0, value=((l< <8+SA_PRECISION)-l)/step;vaIue!=0;bits++) 

value = value > > 1; 
ReadBIockSA(new,old,addr,x,y,octs-l,0,cbannel,src,dst); 

/* Proposed */ 

for(X=0:X < BLOCK;X+ +) for(Y=0; Y < BLOCK;Y+ +) 
pro[Xl[Yl =oId[XI[Y] +QuannzeSA(new[Xl[Y]-old(X][Y].step,&aev(X][Y])); 
/* MakeDecisions *l 

new_mode=mode==STILL?STEI.:DecisionSA(new,oId,norms(2]) 1 1 
BlockZeroSA(Iev)?STOP:SEND; 

switch(new_mode) { 
case SEND: 

SendTokenSA(LPF_NON_ZERO,chaimel.0.octs,bfp,&empty,0); 
UpdateCoeffsSA(pro,lev,addr,chamiel,octs,dst,bfp); 

break: 

case STILL: 

for(X=0;X<BLOCK;X4-+) for(Y=0;Y< BLOCK: Y++) { 
unsigned char ♦bytes=CodeIntSA(lev(X][Y],bits); 

dst[channei][addr[X][Y]]=(shon)pro[X][Y]; 
bwrite(bytes.bits.bfp) ; 
XtFree( bytes); 

} 

break; 



wo 94/23385 



PCT/GB94/00677 



- 244 - 

case STOP: 

SendTokenSA(LPF_ZERO.chaniieI,0,octs.bfip,&empty.O); 
break; 

} 

} 

if (mode! =STILL && empty = = LPF_EMPTY) 
SendTokeiiSA(LPF_LOC_ZERO,chaiinel,0,octs_lum,bfp,&full,0); 
} 

} 

/* Funcrion Name: CompressFrameSA 

* Description: Compress a Frame 

* Argumems: mode - compression mode STILL or SEND 

* src, dst - source and destination data 

* bfp - binary file pointer for result 

* quant_const - quantization parameter 
*/ 

void ComprcssFramcSA(mode,src,dst,bfp,quant_const) 

int mode: 

shon *src[3]. ♦dst(31; 

Bits bfjp; 

double quant_const: 

{ 

int sub» channel, y, i, 
octsJum=3, 

size(21 = {SAJVIDTH> > 1 +octsJum,SA_HEIGHT> > i 4-occsJum}: 



for(channel=0;channel<3;channei-r +) { 
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int 

frame_size(2]={SA_WIDTH> > (channel = =0?0:1),SA_HOGHT> > (channel ==0?0:1 
)}. 

frame_area= frame_size[01 *frame_si2e[ 1 ] ; 

for(i =0;i < franie_area;i+ +) 
src[channel][i] =src(channel][i] < <SA_PRECISION; 

Convolve(src(cfaannel] .False, frame_size,0,channel = =0?3;2); 

} 

bwrite((char *)&quani_const,sizeof(double)'^8,bfip); 
SendLPF_SA(mode,src,(ist,bfp,quant_const); 
for(y=0;y<si2e[l];y++) for(x=0;x<size{0];x++) { 
int enq)iy=EMPTY, ftiil«FULL; 

foi(cbannel =0;cfaannei < 3 ;chaiuiel + +) { 
ini octsschannei! -072:3; 

for(sub = l;siib<4;sub++) 

(void)SendTreeSA(mode,x,y,octs-l,sub.channei,src,dst,&empty,0,quant_const,bfp); 
switch(empty) { 

case FULL; 

empty=CHANNEL_EMPTY; 
break; 

case CHANNEL_EMPTY: 

SendTokenSA(CHANNEL_ZEROxhannei.sub,octs-l ,bfp,&full,0); 

break; 

} 

} 

if (empty == EMPTY) 
SendTokenSA(LOCAL_ZERO,channeI,sub,ocisJum-l,bfp,&full,0); 
} 
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source/KlicsTestSA.c 



^include "xwave.h" 
^include "KUcsSA.h" 

extern void ComprcssFnimeSAO; 

typcdef struct { 
Video src: 

char bin_naiiie(STRLENl; 
Boolean stillvid; 
double quant^const; 
} KlicsCtrlRec, *KlicsCtrl; 

/* Function Name: KlicsCtrlSA 

* Description: Test hanzess for KlicsSA in xwave 

* Arguments: w - Xaw widget 

* closure - compression control record 

* cail^data - NULL 

* Returns: send data to binary file 
*/ 

void KlicsCtrlSA(w,closure,call_data) 

Widget w; 

caddr t closure, call data; 



{ 

KlicsCtrl ctrI=(KlicsCLrl)closure: 
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sizeUV=SA_WIDTH*SA_HOGHT/4, i. z; 

shon *dst(3]={ 

(shon *)MALLOC(sizeof(shon)*sizeY), 
(short ♦)MALLOC(sizeof(short)*sizeUV). 
(shon ♦)MALLOC(si2eof(shon)*sizeUV),. 

}. *srcP]={ 

(short ♦)MALLOC(sizeof(short)*sizeY), 
(shon *)MALLOC(sizeof(shon)*sizeUV), 
(short *)MALLOC(sizeof(shon)*sizeUV), 

}; 

char file_iiaine[STRlJEN]; 
Bits bfjp; 

Boolean true = True, false = False; 

for(i=0;i<sizeY;i++) dst[0][i]=0; 
for(i=0:i<sizeUV;i++) { dst[l][i]=0; dst[2][i]=0; } 



sprintf(file_name. " %s % s/%s %s\0'' .global- > home.KLICS_S A_DIR,ctrl- > bin_naine.KLI 
CS_SA_EXD; 

bfip=bopen(file_name, "w"); 

bwrite(&ctrl- > stillvid, 1 ,bfp) ; 

bwrite(&ctri- > src- > si2e(2],sizeof(int)*8,bfp); 

for(z=0:z<ctrl->src->si2e[21;z++) { 
GetFrame(ctrl- > src,z); 

for(i=0;i<si2eY;i+ +) src[0][i]=ctrl-> src-> data[01[zl[i]; 
for(i=0;i<sizeUV;i + +) { 

src( 1 Hi] =ctri- > src- > data[ 1 ) [z] [i] ; 

src(2][i] =ctri- > src- > data[2][z][i] ; 

} 

CompressFra2neSA(z==0 |j 



oi lorxtT! iTc cuccT /Di II c nc\ 
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Ctrl- > stillvid?STILL:SEND,src,clst,bfp,ctrl- > quam_const); 
FreeFramefctrl- > src,z); 

} 

bflush(bfip); 

bclose(bfip); 

XtFrce(dst(0]); 

XlFree(dsiIl]); 

XtFree(dst[21); 

XtFree(src[01); 

XtFree(src[ll); 

XtFree(src(21); 

} 

KlicsCtrl InitKIicsCtrKname) 
String name; 

{ 

KlicsCtrl Ctrl = (KlicsCtrl)MALLOC(si2eof(KlicsCirlRec)) ; 

Ctrl- > stillvid =True; 
Ctrl- > qxiam_const=8.0; 
strcpy(ctri- > bin_name,name); 
remrn(cirl); 

} 

Mefme KUCS_SA_ICONS 8 
Mefine KUCS_SA_VID_ICONS 2 

void KiicsSA(w,ciosure,caii data) 



Widget w: 
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caddr_t closure, call_data; 

{ 

Video video =(Video)closure; 

KlicsCtrl Ctrl =InitKlicsClrl(video-> name); 

Floatlnput flt_inputs = (FIoatIiiput)MALLOC(sizeof(FIoatIq)utRfic)) ; 

Message msg__biii=NewMessage(ctrl- > bin_naine,NAME_LEN); 

XtCallbackRec destroy_calIQ = { 

{Free,(caddr_t)ctri}, 

{Frce,(caddr_t)flt_inputs} , 

{CloseMessage,(caddr_t)insg_bin} , 

{NULL,NULL}, 

}; 

Widget paicnt=FindWidgct("fnn_compress" ,XtParem(w)), 



sheil=ShellWidget("ldicsSA",parent,SW_beiow,NULL,destroy_call), 
fonn=FonnatWidget("klicsSA_fonn" .shell), 
widgcts[mCS_SA_ICONS], 
vid_widgets[mCS_SA_VID_ICONSl ; 
Formitem items[]={ 

{ "klicsSA_cancer , "cancel" ,0,0,FWJcon,NULL} , 
{ "klicsSA_confinn" , "confinn" , 1,0,FW Jcon.NULL} , 
{"klicsSA_title","Rim Klics SA",2,0,FWJabel,NULL}, 
{ "klicsSA_binJab " , "KUCS File: " ,0,3 ,FW JabeI,NULL} , 
{"klicsSA_bin_name".NULL,4,3,FWjext,(String)msg_bin}. 

{ "klicsSA_qn^float" .NULL.0,5 ,FW_float,(String)&flt_inputs(0] } , 
{ "klicsSA_qn_scroir .NULL.6,5.FW_scroll,(String)&fltJnputs[01 } . 
{ "klicsSA_vid_forni" .NULL.0,7,FW_form,NULL} , 
}, vid_items(] = { 

{"klicsSA icJab" . "Image Comp: ",0.0,FW_label,NULL} , 
{ "kiicsSA_ic".NULL,l,O.FW_yn.(String;&ctr!- > stillvid} , 

1 . 
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XtCallbackRec cailbacks[] = { 
{Destroy ,(caddr_t)sheil} , 
{NULL,NULL}, 
{KlicsCtrlSA,(caddr_t)ctrl} . 
{ Destroy , (caddr_t)shell } , 
{NULL,NULL}, 

{FloatlncDec , (cad£lr_t)&flt_mputs[0] } , {NULL,NULL} , 
}, vid_caUD = { 

{Change YN,(caddrj)&ctrl- > stillvid} , {NULL,NULL} , 

}: 

Ctrl- >src= video; 

msg_bm->rows=l; msg_bm->cois=NAME_LEN; 

flt_inputs{0].foimat= "Quant: %4.ir; 
flt_inputs{0] .max= 10; 
flt_inputs[0] .iiiin=0; 

flt_inputs[0] - value = &ctrl- > quaixt_const; 

FiIlFonn(fonn.KLICS_SAJCONS-(video- > si2e{2] > 1?0: l),iteins.widgets,callbacks); 
if (video- >size(21>l) 

FinForm(widgets(7I,KLICS_SA_VIDJCONS,vidjtems,vid_widgets,vid_call); 
XtPopup(sheIl,XtGrabExciusive); 

} 
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source/Malloc.c 



/* 

Memory allocation routine 

♦/ 

^include < stdio.h > 
char *MALLOC(size) 
int size; 

{ 

char *ptr=(char *)cailoc(l,size); 

if (ptr==NlJLL) Eprintf("Unable to allocate %d bytes of memory\n\si2c); 
rcmmCptr); 

} 
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source/Menu.c 



/* 

*/ 



Pull-Rlght Menu functions 



#include <stdio.h> 

#include <Xll/InirinsicP.h> 

#include <Xll/StringDefs.h> 

#include <X11/Xaw/Xawlnit.h> 

^include < XI 1/Xaw/SimpieMenP.h > 

#inciude <Xll/Xaw/ConimandP.h> 



static void prPopupMenu(); 
static void NotifylmageO; 
static void PrLeaveO; 

void InitActions(app_con) 

XtAppContext app_con; 



{ 

Static XtActionsRec actions[] = ( 

{ "prPopupMenu" ,prPopupMenu} , 
{ *'notifyImage'\NotifyImage} , 
{"prLeave",PrLeave}, 



XtAppAddActionsiapp^con.actions.XcNumbenactions)); 
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} 

static void prPopupMenu(w,event,parains,numj5araiiis) 

Widget w; 
XEvent * event; 
String * params; 
Cardinal * numjarams; 

{ 

Widget menu, temp; 
Arg argiist[2]; 
Cardinal num_args; 

int menu_x, memi_y, mcnu^width, menu_height» button_width, button^height; 
Position button_x, button^; 

if (*num_j}aranxs! = 1) { 

char error^buflBUFSIZl; 

sprintf(error_but ''prPopupMcnu: %s. "/Illegal number of translation 
arguments"); 

XtAppWaming(XtWidgetToAppiicationContext(w), error_buf); 
return; 

} 

temp = w; 

while(temp != NULL) { 
menu = XtNameToWidget(temp, paramsfO]); 
if (menu = = NULL) 

temp = XtParent(temp); 
else 
break; 

} 
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if fraenu = = NULL) { 
char erTor_buf[BUFSIZl; 
sprmtf(error_buf, "prPopupMenu: %s %s.\ 

''Could not find menu widget named", params(0]); 
XtApp WarningCXtWidgetTo ApplicationContext(w) , error^buf) ; 
return; 

} 

if (!XtIsRealized(menu)) 
XtRealizeWidget(menu) ; 

menu_width = menu- > core. width + 2 * menu- > core. border width: 
button^width = w-> core, width + 2 * w.>core.border_width; 
button_height = w.>corc.height + 2 ♦ w-> core. border width; 

mcnu_height = menu->core,height + 2 * menu- > core. border width: 

XtTransiateCoords(w, 0, 0, &button_x, &button_y); 

menu_x = button_x: 

menu_y = button_y + button^height; 

if (menu_x < 0) 

menu^x = 0; 
else { 

int scr^width = WidthOfScreen(XtScreen(menu)); 
if (menu x + menu^width > scr^width) 
menu_x = scr_width - menu_width: 

} 

if fmenu_y < 0) 

menu_y =0; 
else { 

int scr_hei2ht = KeightOfScreentXtScreenimenu)); 
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if (menu_y -H menu_height > scr_height) 
menujr = scr_height - menu^height; 

} 

nuin_args = 0; 

XtSetArg(arglist[num_args], XtNx, menu_x); nuin_args+ + ; 
XlSetArg(arglist[num_args], XtNy, memi_j); num_args-h-h; 
XlSetVaIues(menu, argiist, num^args); 

XtPopupSpriiigLoaded(menu) ; 

} 

/* 

stadc void 

prReaiize(w, mask, attrs) 
Widget w; 
Mask '^mask; 

XSetWindowAnributes ♦attrs; 
{ 

(♦superclass- > core j:lass,realize) (w, mask, attrs); 
*/ 

/♦ We have a window now. Register a grab. ♦/ 
/♦ 

XGrabButton( XtDispiay(w), AnyButton, AnyMcxiifier, XtWindow(w), 
TRUE, ButlonPressMask | ButtonReleaseMask, 
GrabModeAsync, GrabModeAsync, None, None ); 

} 

*/ 

static void NotifyImage(w,event,params,num_params) 
Widget w: 



XEveni 



■^event: 
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String *params; 

Cardinal *mimjparams: 

( 

CommandWidget cbw = (ConimandWidget)w; 

if (cbw->coinmaiid.set) XtCalICallbackJJs£(w,cbw->conunand.caUbacks,event); 

} 

static void PrLeave(w,cvent,paraiiis,nuin_params) 

Widget w; 
XEvent *event; 
String *params; 
Cardinal *numj)arams; 

{ 

SimpleMenuWtdget smw=(SimpleMenuWidget)w; 
Dprintf("PrLeave\ii"); 

} 
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* Message I/O Utility Routines 
*/ 

^include " . ./inciude/xwave.h" 
^include <varaxgs.h> 

#defme MESSJCONS 3 
void TextSi2e(msg) 
Message msg; 

{ 

im i=-l, inaxjen=0; 
char *texts=msg-> info.ptr; 

msg- > rows "0; 
msg- > cols =0; 
do { 

i+ + ; 

if (text(il = = '\n' || text[i] = = '\0') { 

if (msg- > cols > max Jen) max Jen = msg- > cols; 
msg- > cols =0; 
msg- > rows -H-h; 
} else msg- > cols -f-h; 
} while (text(i]! = '\0'); 
if (i>0) if (tcxt{i-ll = = '\n') msg- > rows-; 
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rasg- > cols =niax_len; 



Message 



NewMessage(iext,size) 



char *text; 



size; 



Message msg = (Message)MALLOC(sizeof (MessageRec)) ; 

msg-> shell = NULL; 
msg- > widget=NULL; 
msg- > info.firstPos =0; 

if (l(msg->own_tcxt=tcxt==NULL)) msg- >info.ptr= text; 
else{ 

msg- > info.ptr=(char *)MALLOC(size-h 1); 
msg- > info.ptr[0] = '\0*; 



msg- > info.fonnat=FMT8BIT; 

msg- > info.lexigth=0; 

msg- > rows =0; 

msg->cols=0; 

msg- > size = size; 

msg- > edii= XawtextEdit; 

remni(msg); 



void CloseMessage(w,closure,cail_data) 



Widget 



w; 



caddr t 



closure, call data: 
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{ 

Message msg = (Message)ciosure ; 

Destroy(w,(caddrj)msg- > shell.NULL); 
if (msg- > own^text) XtFree(msg- > info.ptr); 
XtFree(msg); 

} 

void MessageWindow(parent,msg,title,close,call) 

Widget parent; 
Message msg; 
char *titie; 
Boolean close; 
XtCallbackRec caUO; 

{ 

Widget form, widgets(MESS JCONS] = {NULL,NULL,NULL}; 
Formltem itemsQ = { 

{ "msg_cancei" /cancel \0,0,FW jcon,NULL} , 

{ "msg JabelMide, 1 ,0,FW JabcLNULL} , 

{ "msg^msg '\NULL,0,2,FW jext,(String)msg} . 

}; 

msg- > edit= XawtextRead; 

msg- > sheli=ShellWidget("msg",parent,parent= =giobal- > topieveI?SWjop:SW below, 
NULL,NULL); 

form= FormatWidget( •'msg_fonn" ,msg- > shell) ; 

FiIlForm(.form.MESSJCONS-(close?0: l),&items[close?0: ll,&widgetstciose?0: l],cali); 
XtPopup^msg- > shelUXtGrabNone); 
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Mflusb(nisg); 

} 

void Mflushfmsg) 
Message msg; 
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{ 

if (global- > batch= =NULL && msg- > widget! = NULL) { 
Display *dpy = XtDisplay (global- > toplevel) ; 
int i, lines=0; 
Arg args[l]; 

for(i=msg-> iiifo.lengili-l;lines< msg- > rows && i> =0;i-) 

if (msg- > info.ptr[i] = = '\n' && i! =msg- > info.Iength-l) lines+ -f- ; 

if (msg- > info.ptr[i] = = '\n') i+ + ; 
strcpy(msg- > info.ptr,&msg- > info.ptrfi]); 
m£g- > info, length- = i ; 

XtSetArg(args[0],XtNstring,msg- > info.ptr); 
XSy nchronizeCdpy . True) ; 
XtSetValues(msg- > widget,args,ONE); 
XSynchronize(dpy, False) ; 

} 

} 

void mprintf(msg,ap) 

Message msg; 
vajist ap; 
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cbar *fonnat; 

format =va_arg(ap,char *); 

if (global- > batch! = NULL) vprintf(fonnat,ap); 

else { 

char text[STRLENl; 
int i; 

vsprintf(text,fonnat^ap); 

i =strien(text) 4-msg- > info.Iength-msg- > size; 

if(i>0){ 

sircpy(msg-> info.ptr,&insg-> info.ptr[il); 
msg- > info.length- = i; 

} 

strcat(msg- > info.ptr,text); 
msg- > info.length+ =strien(text); 

} 

} 

void Dprintf(va_alist) 
va_dcl 

{ 

va^list ap; 

if (global- > debug) { 
char *format; 

va_stan(ap); 

fonnat=va_arg(ap,char *); 
vprinif(format.ap); 
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va_end(ap); 



} 

} 



void Mprintffva_alist) 



va del 



vajisi 
Message 



ap; 
msg; 



va_stan(ap); 

msg = va_arg(ap ^Message) ; 

mpnntf(msg,ap); 

va_cnd(ap); 

} 

void Eprintf(va_alist) 



va del 



vaJisi ap; 
Message msg; 
int rows, cols; 

va_stan(ap); 

msg = NewMessage(NULX,STRLEN); 

mprintf(msg,ap); 

if (global- > batch = = NULL) { 

XtCallbackRec callbacks(] = { 
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{CloseMessage,(cadcir_t)insg} , 
{NULL,NULL}, 

}; 

TextSize(msg); 

MessageWindow(global- > topievel.msg, "Xwave Error ",True,cailbacks), • 

} 

va_end(ap); 



} 
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source/NameButton.c 



* Supply MenuButton widget id to PuIlRightMenu button resource 
*/ 

^include "../inciude/xwave.h" 

void NameButton(w, event, params, num_parains) 

Widget w; 
XEvent *evcnt; 
Suing params; 
Cardinal nuixi_paraixis ; 



MenufiuttonWidget mbws<MenuButtonWidget) w; 
Widget menu; 
Arg args[l]; 
String name; 

XtSetArg(args[0],XtNmenuName.&name): 
XtGetVaiues(w,args,ONE); 

Dprintfr"NameButton: looking for PRM %s\n".name); 
menu = FindWidget(name. w) ; 
if (menu ! = NULL) { 

Dprintff"NameButton: setting Menu Button\n"); 

XtSetArg(args(01,XtNbutton.w); 

XtSetVaIues(menu, args , ONE) ; 

} 

} 
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source/Palettex 



/* 

* Palette re-mapping 
♦/ 

^include " . ./include/xwave.h" 

/♦ Function Name: ReMap 

* Description: Re-maps a pixel value to a new value via a mapping 

* Arguments: pixel - pixel value (0..max-l) 

"** max - range of pixel values 

* map • palette to recede with 

* Returns: remapped pixel value 
*/ 

int ReMap(pixel,max,palette) 

int pixel, max; 
Palette palette; 

( 

Map map = palette- > mappings; 
int value =pixel: 
Boolean inrange= False; 

whilefmap [ = NULL && ! inrange) { 

if (pixel > =map- > start 8l8l pixel < =map- > finish) ( 
inrange = True; 

vaiue=map- > m*pixei-i-map- > c; 
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} 

inap=map->next; 

} 

renini( value < 0?0:value > =max?niax- Lvalue); 



} 



/* Function Name: FindPalette 

* Description: Find a palette from a list given the index 

* Arguments: palette - the palette list 

* index - the index number 

* Remras: the palette corresponding to the index 
*/ 

Palette FindPalette(palette»index) 

Palette palette; 
int index; 

{ 

while(index>0 && palette- > next! = NULL) { 
index—; 

palette = palette- > next; 

} 

remm(paiette); 

} 

/* Function Name: ReOrderPalettes 

* Description: Reverse the order of the paiette list 

* Arguments: start, finish - the start and finish of the re-ordered list 

* Returns: the palette list in the reverse order 
*/ 
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Palene ReOrderPaJettes(stan.fmish) 

Palette stan. fioish; 

{ 

Palette list= finish- > next; 

if (list! = NULL) { 

finish- > next = list- > next; 
list- > next Stan: 
stan=ReOrderPaiettes(list,fmish); 

} 

remm(siart); 

} 
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source/Parse.c 



* Parser for xwave input files: .elo 
*■/ 

^include " . ./include/xwave.h" 
#mclude "../inciudeyGram.h" 

void Parse(path.file.ext) 

String path, fUe, ext; 

{ 

char r!le_name[STRLEN]; 

sprintf(rile_naine," ?5s%s/%s%s\0",giobal-> home,path,fiIe,ext); 
Dprintf("Parse: parsing file %s\n",rile_name); 

if (NULL= =(global-> parse_fp=fopen(fiIe_name, "r"))) 

Eprintf("Parse: failed to open input file %s\n".file_name); 

else { 

sprintf(file_name, " %s%s\0",file,ext); 
global- > parse_file =file_name; 
global- > parse_token=ext; 
yyparseO; 

fclose(global- > parse_fp) ; 

Dprimf("Parse: finished with %s\n",file_name); 

} 

} 
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void ParseCtrI(w,closure,call_data) 

Widget w; 

caddr_t closure, call_daia: 

{ 

Parse( " . " , ((XawListReturnStnict *)call_data)- > striiig,(Slrmg)closure) ; 

} 

int Parseliiput(fp) 

FILE *fp; 

{ 

int nmn; 

if (global- > parse_token! = NULL) 

if (global- > paise_token(01 = = '\0') { 
num=(ini)'\n'; 

global- > parse_tolcen= NULL; 
} else { 

num = (int)global- > parse_token(01 ; 
global- > parse_token-l- + ; 

} 

else if (EOF==(nuin=getc(globaI->parse_fp))) num=NULL; 
retum(num); 
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source/Pop2.c 



/* 

Global callbacks for popping popups and allsoned utilities 

♦/ 

^include " . ,/include/xwave.h" 

void Destroy(w,closure,calI_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Widget widget =(Widget)closure; 

if (widget! = NULL) XtDestroyWidget(widget); 

} 

void Quit(w,closure,calI_data) 

Widget w; 

caddr^t closure, call_data: 

{ 

XtDestroyAppIicationContex:(giobal- > app_con); 
exitO; 

} 

void Freetw, closure, call data) 
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Widget w; 

caddrj closure, call_data; 

{ 

if (closure! = NULL) XtFree(closure); 

} 

Widget Fi2idWidget(name,current) 

String name; 
Widget current; 

{ 

Widget target=NULL; 

while(current!=NULL) { 

target = XtNameToWidget(ciirrcnt, name) ; 

if (targei==NULL) current=XtParent(current); 

else break; 

} 

if (targe:==NULL) { 

Eprintf("Cant find widget: %s\n",name); 
target = global- > toplevel ; 

} 

remm(targct); 

} 

Mefme NAJCONS 2 



void NA(w,closure,call_daia) 
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caddr_t closure. caJl_daia; 
{ 

Widget 

shell = ShelIWidget("na_sheli" .(Widget)closure,SW_below,NULL.NULL). 

fonn=FonnatWidget("na_fonn",shell). widgetsfNAJCONS]; 
Formitem iteins[]={ 

{ "iia_confinn" , "confinn " ,0,0,FWJcoii,NULL} , 
{"na_labei","This function is not available",0,l,FW_label,NULL}, 

}: 

XtCallbackRec cailbacksO = { 

{Destroy,(caddr_t)slieli}, {NULL,NULL}, 

}; 

FiIIFonn(fonn,NA_ICONS,iteins,widgets,caUbacks); 
XtPopup(shell.XtGrabExcIusive) ; 

} 

void SetSensitive(w,cIosurc,caII data) 

Widget w; 

caddrj closure, call_data; 

{ 

XtSetSensitive((Widget)cIosure, True) ; 

) 
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source/Process. c 



/* 

* Call sub-processes 
*/ 



^include " . ./inciude/xwave.h" 

^include < signal.h> 

^include < sys/waiLh > 

^include < sys/timc.h> 

^include < sys/resourcc.h> 



/* Function Name: Fork 

* Description: Executes a file in a process and waits for termination 

* Arguments: argv - standard argv argument description 
Returns: dead process id 



int Fork(argv) 
char *argv[]; 

{ 

int pid; 

union wait statusp; 

struct msage rusage; 

if(0==(pid=fork())) { 

execvp(argv[01 ,argv) ; 



exitO; 
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} else if (pid>0) waii4(pid,&statusp,0,&njsage); 
remni(pid); 

} 

/* Function Name: zropen 

* Description: Open a file (or .Z file) for reading 

* Arguments: file_name - name of the file to be read 

* pid - pointer to process id 

* Renims: file pointer 
*/ 

FILE *zropen(file_name,pid) 

char *file_name; 
int *pid; 

{ 

char z_name[STRLEN]; 

String zcat(]={"zcat",z_name,NULL}; 

FILE *fp; 

if (NULL==(fp=fopen(file_name,"r"))) { 
static int up[2]; 

sprintf(z_name. " %s.Z",file_name); 
pipc{up); 

if (0!=(*pid=forkO)) { 

Dprintf("Parent process started\n"); 

close(up[i]); 

fp=fdopen(up(0],"r"); 

} else { 

Dprinifr' Running zcat on %s\n".zcai[l]); 
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close(up[0]); 
diip2( up[l], 1); 
close( up[l] ); 
execvp(zcat(0] , zcat) ; 



} 

} 

retum(fp); 



} 



/* Function Name: zseck 

* Description: Fast-forward thra file (fseek will not work on pipes) 

* Arguments: fp - file pointer 

* bytes - bytes to skip 
♦/ 

void 2seek(fp.bytes) 

FILE *fp; 

int bytes; 



{ 



char scratch[1000]; 
int i; 

while(bytes>0) { 

int amount=bytes > lO(X}?1000:bytes; 

fread(scratch.sizeof(char) ,amount,fp) ; 
bytes- = amount: 

} 



} 



wo 94/23385 



PCT/GB94/00677 



-276 - 

void zclose(^,pid) 

FILE *fp; 
inc pid; 

{ 

union wait statusp; 
struct rusage nisage; 

fclose(fp); 

if (pid!=0) waii4(pid,&statusp,0,&rusage); 

} 
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source/PuIlRightMenu-c 



#if ( !defmed(lint) && !defmed(SABER) ) 

static char XrcsidQ = "SXConsoniuin: PullRightMenu.c,v 1.32 89/12/11 15:01:50 kit 

Exp 

#endif 

/♦ 

* Copyright 1989 Massachusetts Institute of Technology 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this pennission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. malces no representations about the 

* suitability of diis software for any purpose. It is provided "as is" 

* without express or implied warranty. 
* 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO TfflS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

* BE LL\BLE FOR ANY SPECIAL. INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE. DATA OR PROFITS. 
WHETHER IN AN ACTION 

* OF CONTRACT. NEGUGENCE OR OTHER TORTIOUS ACTION. ARISING OUT 
OF OR IN 
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* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
*/ 

/* 

* PullRightMenu.c - Source code file for PullRightMenu widget. 
* 

*/ 

^include <stdio,h> 
#include <Xll/IntrinsicP.h> 
#inciude <XlI/StringDefs.h> 

#include <X11/Xaw/Xawlnit.h> 
#include <Xll/Xaw/SimpleMenP.h> 
^include "PullRightMenuP.h" 
#include <Xll/Xaw/SmeBSB.h> 
#include "SmeBSBpr.h" 
#include < XI 1 /Xaw/Cardinals.h > 

#include <X11/Xmu/Imter.h> 
#include <Xll/Xmu/CharSet.h> 

#define streq(a, b) ( strcmp((a), (b)) = = 0 ) 

#defme offset(field) XtOffset(PulIRightMenuWidget, simple_menu.field) 

static XtResource resources □ = { 

/* 

* Label Resources. 
*/ 



SUBSTITUTE SHEET (flULE 26) 
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{XtNIabei, XtCLafael, XtRString, sizeof(String), 

offset(label_strmg), XtRString, NULL}, 
{XtNlabelCIass. XtCLabelClass. XtRPomter. sizeof(WidgetClass), 

offset(labeI_class), XtRImmediate, (caddrj) NULL}, 

/* 

* Layout Resources. 
*/ 

{XtNrowHeight, XtCRowHeight, XtRDimension, sizeof(Dimeiision), 

offset(row_height), XtRInimediate, (caddr t) 0}, 
{XtNtopMargin, XtCVerticaiMargins, XtRDimension, sizeof (Dimension), 

offset(top_margin), XtRImmediate, (caddrj) 0}, 
{XtNbottomMargin, XtCVerticaiMargins, XtRDimension, sizeof(Dimension), 

of£5et(bottom_margin), XtRImmediate, (caddrj) 0}, 

/• 

* Misc. Resources 
*/ 

{ XtNailowShellResize, XtCAIIoWShellResize, XtRBoolean. sizeof(Boolean), 

XtOffset(SimpleMenuWidget, shell.allowjheil rcsize), 

XtRImmediate, (XtPointer) TRUE }, 
{XiNcursor, XtCCursor, XtRCursor, sizeof(Cursor), 

offset(cursor), XtRImmediate, (caddrj) None}, 
{XtNmenuOnScreen, XtCMenuOnScreen, XtRBoolean. sizeof(Boolean), 

offset(menu_on_screen), XtRImmediate, (caddrj) TRUE}, 
{XtNpopupOnEntry. XtCPopupOnEmry, XtRWidget, sizeof(Widget), 

offset(popup_eniry), XtRWidget, NULL}, 
{XtNbackingStore, XtCBackingStore. XtRBackingStore. sizeof (im), 

offset(baclcing_store), 

XtRInunediate. (caddrj) (Always -f WhenMapped + NotUsefui)}, 
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{XtNbunon, XtCWidget, XtRWidget, sizeof(Widget). 
offseKbutton), XtRWidget, (XtPointer)NULL} , 

}: 

#undef offset 



static char defauItTransiatioosn = 

" < EaierWindow > : highiightQ \n\ 
<LeaveWindow>: puilQ \n\ 
<BtnMotion>: highiightQ \n\ 
<BtnUp>: executeO"; 



* Semi Public function defmitions. 



static void RedispiayQ, RealizeO, ResizeQ, ChangeManagedQ; 
static void Initialize(), ClassInitializeO, ClassPartInitiaiize(); 
static Boolean SetValuesQ, SetValuesHookO; 
static XtGeometryResult GeometryManagerO; 

/* 

* Action Routine Definitions 
*/ 

static void HighlightO. Unhighlight(). PuIIQ, ExecuteO. NotifyO, PositionMenuActionO; 
/* 

* Private Function Definitions. 
*/ 

static void MakeSetValuesRequestO. CreateLabelQ, LayoutO; 

static void AddPositionActionO, PositionMenu(), ChangeCursorOnGrabf); 



wo 94/23385 



-281 - 

static Dimension GetMenuWidthOt GetMenuHeightQ; 

static Widget FindMenu(); 

static SmeObject GetEventEntryO; 



static XtActionsRec actionsList[] = 

{ 



{"puir. 

{"execute", 
{"notify", 
{"highlight", 
{"unhighlight", 



Pull}. 

Execute}. 

Notify}, 
HighUght}. 
Unhighlight}, 



}; 



CompositeClassExtensionRec prextension rec = { 
/• next_extension ♦/ NULL, 
/* rccord_type */ NULLQUARK, 
/* version */ XtCompositeExtensionVersion, 
/* recoid^size ♦/ sizeof(CompositeCIassExtensionRec), 
/* accq)ts__objects ♦/ TRUE, 

}; 

Mefine superclass («S:overrideShellClassRec) 

PuilRighiMenuClassRec pullRightMenuClassRec = { 
{ 

/* superclass */ (WidgetClass) superclass, 

/* class_namc ♦/ "PullRightMenu", 

/* size ♦/ sizeof(PullRightMenuRec). 

/* class_initialize */ Classlnitialize, 

/* class_pan_initialize*/ ClassPartlnitialize, 

/* Class init'ed */ FALSE. 

/* initialize */ Initialize. 
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/* initiaiize^hook */ NULL, 

/* realize V Realize, 

/* actions */ actionsList, 

/* num_actions ♦/ XtNumber(aciioiisList), 

/* resources */ resources, 

/* resoun:e_couni */ XtNumber(resources), 

/♦ xnn_class ♦/ NULLQUARK, 

/* compress_raotion */ TRUE, 

/* compress_exposure */ TRUE, 

/♦ compress^cnterlcave*/ TRUE, 

/* visible^intercst ♦/ FALSE, 

/* destroy */ NULL, 

/* resize ♦/ Resize. 

/* expose ♦/ Redisplay, 

/* set_values */ SetValues, 

/* set_values_hook */ SetVaiuesHook, 

/♦ set^values^almosi ♦/ XtlnheritSetValuesAlmost, 

/♦ get_vaIues_hook NULL, 

/* acccpt_focus */ NULL, 

/* intrinsics version */ XtVersion, 

/* callback offsets */ NULL, 

/* tm^table */ defaultTranslations, 

/* query_geomeiry */ NULL, 

display_acceierator*/ NULL, 
/* extension */ NULL 
}.{ 

/* geometry^^manager */ GeometryManager, 
/* change^managed */ ChangeManaged, 
/* insert_child ♦/ XtlnheritlnsenChiid, 
/♦ delete^child XtlnheritDeleteChild, 
/* extension */ NULL 
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/* Shell extension */ NULL 

}.{ 

/* Override extension */ NULL 

u 

/* Simple Menu extension*/ NULL 

} 

}; 

WidgetCIass puURightMenuWidgetClass = (WidgetCIass)&pullRightMenuCIassRec; 



* Semi-Public Functions- 



Function Name: Classlnitiaiize 

* Description: Class Initialize routine, called only once. 

* Arguments: none. 

* Returns: none. 
*/ 

static void 
ClassinitializeO 

{ 

Xawlnitialize WidgetSetO ; 

XtAddConvener( XtRString, XtRBackingStore. XmuCvtStringToBackingStore, 
NULL, 0 ); 

XmuAddInitiaIi2er( AddPositionAction. NULL); 

} 



Function Name: Classlnitiaiize 
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* Description: Class Part Initialize routine, called for every 

* subclass. Makes sure that the subclasses pick up 

* the extension record. 

* Arguments: wc - the widget class of the subclass. 

* Returns: none. 
♦/ 

static void 

ClassPartlnitialize(wc) 
WidgetCIass wc; 

{ 

SimpleMenuWidgeiClass smwc = (SimpleMenuWidgetClass) wc; 

/♦ 

* Make sure that our subclass gets the extension rec too. 
*/ 

pr_extension_rec.ne«_extension = smwc- > composite class, extension; 
smwc- > composite_ciass.exiension = (caddrj) &pr extension rec; 

} 

/* Function Name: Initialize 

* Description: Initializes the simple menu widget 

* Arguments: request - the widget requested by the argumem list. 

* new - the new widget with both resource and non 

* resource values, 

* Returns: none. 
*/ 



1^ ARGSUSED */ 
static void 

Initialize( request, new) 



wo 94/23385 



- 285 - 

Widget request, new; 
{ 

SimpleMenuWidget smw = (SimpleMenuWidget) new; 
XmuCallImtializers(XtWidgetToAppiicationContext(new)); 

if (smw->simple_menu.label_class == NULL) 

smw->simple_menu.iabel_class = smeBSBObjectClass; 

smw->simple_menu.labcl = NULL; 
smw->simple_menu.enrry_set = NULL; 
sraw->simpie_menu.recursive_set_values = FALSE; 

if (smw->simple_memi.labcl_string != NULL) 
CreateLabel(new); 

smw->simpie_menu.mcnu_width = TRUE; 

if (smw- > core, width =s= 0) { 

smw->siniple_menu.menu_width = FALSE; 
smw->corc.width = GetMcnuWidth(new, NULL); 

} 

smw- > siinpie_menu.incnu_heighi = TRUE; 

if (smw->core.height == 0) { 

smw->simpie_menu.menu_heighi = FALSE; 
smw->core.height = GetMenuHeighi(new); 

} 

* Add a popup_caIlback routine for changing the cursor. 
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*/ 

XtAddCalIback(new, XtNpopupCallback, ChangeCursorOnGrab, NULL); 

} 

/* Function Name: Redisplay 

* Description: Redisplays the contents of the widget. 

* Arguments: w - the simple menu widget. 

* event - the X event that caused this redisplay. 

* region - the region the needs to be repainted. 

* Returns: none. 
*/ 

/* ARGSUSED •/ 
static void 

Redisplay(w, event, region) 
Widget w; 
XEvent * event; 
Region region; 

{ 

SimpieMenuWidget smw = (SimpleMenu Widget) w; 
SmeObject * entry; 
SmeObjectClass class; 

if (region = = NULL) 

XCIearWindow(XtDisplay(w). XtWindow(w)); 

/* 

* Check and Paint each of the entries - including the label. 
*/ 



ForAllChildren(smw. entry) { 
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if (IXtlsManaged ( (Widget) *entry)) continue; 
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if (region != NULL) 

switch(XRectInRegion(region, (int) (*entiy)- > rectangle.x. 
(int) (*entiy)->rectangie.y, 
(unsigned int) (*entry)->rectangie.width, 
(unsigned int) (♦entry)- >rectangie.height)) { 

case Rectangiein: 
case RectanglePart: 

break; 
default: 

continue: 

} 

class = (SmeObjectClass) (♦entry)- > object. widget_class; 

if (class- > reaclass.e3qjose != NULL) 

(class- >rect_class.expose)( (Widget) ♦entry, NULL. NULL); 

} 

} 

/* Function Name: Realize 

* Description: Realizes the widget. 

* Arguments: w • the simple menu widget, 

* mask - value mask for the window to create. 

* attrs - attributes for the window to create. 

* Returns: none 
*/ 

static void 

Realize(w, mask, attrs) 
Widget w; 

XtValueMask * mask; 
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XSetWindowAttributes * attrs; 

{ 

SimpleMenuWidget sraw = (SimpleMenuWidget) w; 

attrs- > cursor = smw->sirapIe_menu.cursor: 
*mask I = CWCursor; 

if ((smw->simpie_menu.backing_store == Always) 1 1 
(smw->simpie_mexiu.backing_store == NotUseful) 1 1 
(smw->simple_menu.backing_store == WhcnMapped) ) { 
*mask I = CWBackingStore; 

attrs- >backing_siorc = smw->simpie_meiiu.backiiig_storc: 

} 

else 

*mask&= -CWBackingStore: 
(♦superclass- >corc_class.realize) (w, mask, attrs); 

} 

Function Name: Resize 

* Description: Handle the menu being resized bigger. 

* Arguments: w - the simple menu widget. 

* Returns: none. 
♦/ 

static void 
Resize(w) 
Widget w; 
{ 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 
SmeObject * entry; 



if ( !XtIsReaiized(w) ) remm; 
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ForAllChildren(smw, entry) /* reset width of all entries. */ 
if (XtIsManaged( (Widget) *entry)) 

(♦entry)- > rectangle, width = smw-> core, width; 

Redisplay(w, (XEvent *) NULL, (Region) NULL); 

} 

Function Name: SetValues 

Description: Relayout the menu when one of the resources is changed. 
Arguments: current - current state of the widget, 
request - what was requested, 
new - what the widget will become. 

/♦ ARGSUSED */ 
static Boolean 

SetValues(current, request, new) 
Widget current, request, new; 

{ 

SimpleMenuWidget smw_oId = (SimpieMenuWidgei) current; 
SimpleMenuWidget smw_new = (SimpleMenuWidget) new; 
Boolean ret_val - FALSE, layout = FALSE; 

if (!XdsRealized(current)) rBmm(FALSE); 

if (!smw_new->simpie_menu.recursive_set_vaiues) { 

if (smw_new-> core. width != smw_oId-> core. width) { 

smw_new->siinple_menu.menu_w!dth = (smw_new- > core. width != 0); 
layout = TRUE; 

} 

if (smw_new->corc.height != smw_oId- > core.height) { 



/* 
♦/ 
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smw_new- > simple_menu.menu_height = (smw_new- > core. height != 0); 
layout = TRUE; 

} 

} 

if (smw_ol(l- > simple_menu.cursor ! = smw_new- > simple_memi.cursor) 
XDefineCursor(XtDispiay(new), 

XtWindow(new), smw_new- > simpIe_memi.cursor); 

if (sinw_old- > siinple_memi.label_string ! =smw_new- > simple_mcnu.labei string) 
if (smw_new->simple_menu.label_string == NULL) /♦ Destroy. */ 

XtDestroy Widget(smw_old- > siiiiple_menu. label); 
else if (sinw_oId->si^ie_menu.iabei_string == NULL) /* Create. */ 

CreateLabel(Qew); 
else { /* Change. */ 

Arg args[ll; 

XtSetArg(args[0], XtNlabel, smw_new->simpie_menu. label string); 
XtSetVaIues(smw_new->siinpIe_menu.IabeI, args, ONE); 

} 

if (smw_oid- > siraple_menu.iabel_class ! = smw_new- > simpie_inenu. label class) 
XtAppWaniing(XtWidgetToApplicationContext(new), 

"No Dynamic class change of the SimpleMenu Label."); 

if ((smw_old- > simpIe_menu.top_margin ! = smw_new- > simple_menu.top_margin) 
(smw old- > simple menu.bottoin margin ! = 

smw_new->simple_menu.bottom_margin) /* filler */ ) { 

layout = TRUE; 
retval = TRUE; 

} 
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if (layout) 

Layout(new, NULL, NULL); 

renim(ret_val); 

} 

/* Function Name: SetValuesHook 

Description: To handle a special case, this is passed the 

* actual arguments. 

* Arguments: w - the menu widget. 

* argiist * the argument list passed to XtSetValues. 

* num_args - the number of args. 

*/ 
/* 

* If the user actually passed a width and height to the widget 

* then this MUST be used, rather Chan our newly calculated width and 

* height. 
♦/ 

static Boolean 

SetVaIuesHook(w, argiist, num^args) 
Widget w; 
ArgList argiist: 
Cardinal *num_args; 

{ 

register Cardinal i: 
Dimension width, height; 



width = w-> core, width; 
height = w-> core, height; 
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for ( i = 0 ; i < *nuin_args ; { 
if ( streq(argiist[i].name, XtN width) ) 

width = (Dimension) argiistfi]. value; 
if ( streq(argiist[i].name» XtNheight) ) 
height = (Dimension) argiist[i]. value; 

} 

if ((width != w->core.width) 1 1 (height != w-> core, height)) 

MakeSetVaiuesRequcst(w, width, height); 
renirn(FALSE); 



41 

* Geometry Management routines. 

*mmmmmmmmmmmmmmmmmmmmmmmmmmmmm^mm*mmmm^^^mmmmmmmmmmmmmmmm,mmmf 

/* Function Name: GeometryManager 

* Description: This is the SimpieMenu Widget's Geometry Manager. 

* Argimicnts: w - the Menu Entry making the request. 

* request - requested new geometry. 

* reply - the allowed geometry. 

* Returns: XtGeometry{Yes, No, Ahnost}. 
*/ 

static XtGeometryResult 
GeometryManager(w, request, reply) 
Widget w; 

XtWidgetGeometry * request, * reply; 

{ 
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SimpleMenu Widget smw = (SimpleMenu Widget) XtParent(w); 
SmeObject entry = (SmeObject) w; 
XtGeometryMask mode = request- >requesi_mode; 
XtGeometryResuit answer; 
Dimension oid_height, oid^width; 

if ( !(mode & CWWidth) && !(mode & CWHeighi) ) 
renmi(XtGeometry No) ; 

reply- > width = request- > width; 
reply- > height = request- > height; 

oid_width = eQ&y-> rectangle, width; 
old_height = entry- >rectai^le.height; 

Layout(w, &(rcply-> width), &(rcply-> height) ); 

/♦ 

* Smce we are an override shell and have no parent there is no one to 

* ask to see if this geom change is okay, so I am just going to assume 

* we can do whatever we want. If you subclass be very careful with this 
assumption, it could bite you. 

♦ 

* Chris D. Peterson - Sept. 1989. 
♦/ 

if ( (reply- > width == request- > width) && 
(reply- > height = = request- > height) ) { 

if ( mode & XtCWQueryOnly ) { /* Actually perform the layout. */ 
enU7-> rectangle, width = old_width; 
entry- >rectangle.height = old_height; 
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} 

else { 

Layoui(( Widget) smw, NULL, NULL); 

} 

answer = XtGeomeoyDone; 

} 

else { 

enrry-> rectangle, width = old^width; 
entry- > rectangle.height = old_height; 

if ( ((reply- > width == request- > width) && !(mode & CWHeighi)) 1 1 
{(reply. > height == request- > height) && !(mode & CWWidth)) | j 
((reply. > width = = request- > width) && 
(reply- > height == request- > height)) ) 
answer = XtGcometryNo; 

else { 

answer = XtGcometry Almost; 

reply. >requcst_mode =s 0; 

if (reply. > width ! = request- > width) 

reply. >rBquest_mode | = CWWidth; 
if (reply- > height ! = request- > height) 

reply- >request_mode |= CWHcight; 

} 

} 

retum(answer); 

Function Name: ChangeManaged 

Description: called whenever a new child is managed. 

Arguments: w - the simple menu widget. 

Returns: none. 



wo 94/23385 



PCT/GB94/00677 



- 295 - 

Static void 
ChangeMaiiaged(w) 
Widget w; 
{ 

Layout(w, NULL, NULL); 

} 

j^mmmmmmmmmmmmmmmmmmmmm*mmmm*mmmmmmmmmmmmmmmmmmmmmmm*mmmmmmmm 

* Global Action Routines. 

These actions routines will be added to the application's 

* global acdon list. 

mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm^mmmmmmmmmmmmmmf 

Funcdon Name: PosidonMenuAcdon 

* Descripdon: Posidons the simple menu widget. 

* Arguments: w - a widget (no the simple menu widget.) 

* event - die event that caused this acdon. 

* params, numjarams - parameters passed to the routine. 

* we expect die name of die menu here, 

* Retumis: none 
*/ 

/* ARGSUSED */ 
static void 

PositionMenuAcnon(w, event, params, num_params) 
Widget w; 
XEvent * event; 
String * params; 
Cardinal * numjparams: 
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{ 

Widget menu; 
XPoint ioc; 



if (*numj)arains != 1) { 
char error_bufIBUFSIZ]; 
sprinrf(error_buf, %s", 

"Xaw - SimpleMenu Widget: position menu action expects only one", 

"parameter which is the name of the menu."); 
XtAppWaming(XtWidgetToAppiicationContext(w), error^buf); 
return; 

} 



if ( (menu = FiiidMexui(w, paiams[0])) = = NULL) { 
char enorbufpSUFSIZl; 
spriiilf(enor_buf, "%s '%s'", 

"Xaw - SimpleMenuWidget: could not find menu named: paiams[01); 
XtAppWaniing(XtWidgetToi^licationConiext(w), error_buf); 
reaim; 

} 



switch (event- > type) { 
case ButtonPress: 
case ButtonReiease: 

loc.x = event- >xbutton.x_root: 

loc.y = event- >xbutton.y_root; 

PositionMenu(menu, iS^Ioc); 

break; 
case EnterNotify: 
case LeaveNotify: 

loc.x = event- >xcrossing.x_root; 

loc.y = event- >xcrossing.y_root: 
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PositioiiMeziu(meiiu, &loc); 

break; 
case MotionNotify: 

loc.x = event- >xmotioii.x_root; 

loc.y = event- >xmouon.y_root; 

PositionMenu(nienu, &loc); 

break: 
default: 

PositionMenu(nienu, NULL); 
break; 

} 

} 



m 

* Widget Action Routines. 

mmmmmmmmmmmm^mmmmmmmmmmmm^mmmmmmmmmmmmmmmmmmmmmmmmmmmmmf 

Function Name: Unhighlight 
Description: Unhighiigtits current entry. 
Arguments: w - the simple menu widget. 

event - the event' ttiat caused this action, 
params, numjarams - NOT USED *♦ 
Returns: none 

/* ARGSUSED ♦/ 
static void 

Unhighlight(w, event, params, numjarams) 
Widget w: 
XEvent * event: 



/♦ 
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String * params; 
Cardinal * num^pararos; 

{ 

SimpleMenu Widget smw = (SimpleMenuWidget) w; 
SmeObject entry = smw->simple_menu.entry_set; 
SmeObjectClass class; 

if ( enny = = NULL) return; 

smw->siniple_mcnu.entry_set = NULL; 

class = (SmeObjectClass) entry- > object, widget_ciass; 

(class- >sme_class.untiighiight) ( (Widget) entry); 

) 
» 

Function Name: Highlight 
Description: Highlights current entry. 
Arguments: w - the simple menu widget. 

event * the event that caused this action, 
params, num_j)arams - ♦* NOT USED ** 
Returns: none 

/* ARGSUSED */ 

static void 

Highlight(w, event, params, numj)arains) 
Widget w; 
XEvcnt * event; 
String * params; 
Cardinal ♦ numj)arams; 

{ 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 
SmeObject cno^; 



/* 

* 
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SmeObjectClass class; 

if ( !XtIsSensidve(w) ) rcaim; 

entry = GetEventEntry(w, event); 

if (emry == smw->simpie_menu.enrry_set) remm; 

Unhighiight(w, event, params, num^params); 

if (emry = = NULL) return; 

if ( !XtIsScnsitive( (Widget) entry)) { 

sniw->simple_mcnu.entry_set = NULL; 
return; 

} 

smw->simple_mcnu.eniry_set = entry; 

class = (SmeObjectClass) entry- >object.widget_ciass; 

(class- >sme_ciass.highlight) ( (Widget) entry); 

} 

Function Name: Notify 
Description: Notify user of current entry. 
Arguments: w - the simple menu widget. 

event - the event that caused this action, 
params, numjjarams - ** NOT USED ** 
Returns: none 



* 

♦ 



/* ARGSUSED */ 
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static void 

Notify(w, event, params, numjarams) 
Widget w; 
XEvent * event; 
String * params; 
Cardinal * numjparams; 

{ 

SimpieMenu Widget smw = (SimpieMenu Widget) w; 
SmeObject entry = smw- > siinple_menu.en£ry_set: 
SmeObjectCIass class; 

if ( (entry == NULL) ! | !XtIsSensitive((Widget) entry) ) remm; 

class = (SmeObjectCIass) entry- > object. widgetjclass; 
(class- >sme_class.notify)( (Widget) entry ); 

} 

/* Function Name: Pull 

* Description: Determines action on basis of leave direction. 

* Arguments: w * the pull right menu widget. 

* event - the LeaveWindow event that caused this action. 

* params, numjarams - NOT USED ** 

* Returns: none 



static void Pull(w, event, params, numj)arams) 

Widget w; 
XEvent *event: 

String *params; 

Cardinal *num_params; 



oi mo-n-ritTT- n irr- r /Oi ii f" 
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{ 

PuURightMenu Widget prw = (PullRightMenuWidgei)w; 
SmeObjeci entry =prw- > siniple_meim.entry_set; 
SmeObjectClass class; 

if ((entry == NULL) 1 1 !XtIsSensitive((Widget)entry))retum; 

if (event- > type! =LeaveNotify && event- > type! =EnterNotify) { 

XtAppError(XtWidgetToAppiicationContext(w), 

"puilO action should only be used with XCrossing events."); 

return; 

} 

if (None!=event->xcrossing.subwindow) return; 

if (event- >xcrossiiig.y<0 1 1 event- >xcrossing.y> prw- >core.hcight) { 

Unhighlight(w,event,paranis,numjparams); 

return; 

}; 

if (event- >xcrossixig,x<0) { 

if (XtIsSubciass(XtPaicnt(w),pullRighiMenuWidgetClass)) XtPopdown(w); 
return; 

}; 

class =(SmeObjectClass)entry- > object. widget_class; 
if (event- > xcrossiiig.x> prw- > core, width && 
XtIsSubclass(entry.smcBSBprObjectClass)) (class- > sme_^class.notify)((Widget)entry); 
else Unhighiight(w,event,params,num_paranis); 

} 



/* Function Name: Execute 

* Description: Determines notify action on basis of SmeObject. 

* Arguments: w - the pull right menu widget. 

* event - the notify-cype event that caused this action. 

* params, num_params - NOT USED 

* . Returns: none 
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Static void Execuie(w, event, params, numjparams) 

Widget w; 
XEvent ♦event; 
String ♦paiaxns; 
Cardinal *nuni_params; 

{ 

PullRightMenuWidget prw~(PuIlRightMemiWidget)w; 
SmeObject entry=prw->siinple_menu.eiiiry_seu 
SmeObjectClass class; 
Widget sfaeU: 

Dprixuf("Execute\n"): 

for(sheU=w:XtIsSubclass(sbeU,pulIRightMemiWidgetClass);sheU =XtParexit(sheII)) 

{ 

XawSinipieMemiaearActiveEniry(shell); 
XtPopdown(shelI); 

); 

if 

((entry = =GetEveniEafly(w,evem))&&(entry! =NULL)&&XtIsSensitive((Widget)entry)) { 

class =(SmeObjectClass)entry- > object. widget_class; 

if (XtIsSubclass(entiy,smeBSBObjectClass)) 
(class- > sme_class.notify)((Widget)entry); 

}; 

} 



/ 
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* Public Functions. 

* * 

/* Function Name: XawPullRightMenuAddGlobalActions 

* Description: adds the global actions to the simple menu widget. 

* Arguments: app_con - the appcontext. 

* Returns: none. 
*/ 



void 

XawPuIlRightMenuAddGlobalActions(appj:on) 
XtAppContext app_con; 

{ 

XtInitializeWidgetClass(pullRightMenuWidgetClass); 
XmuCallImtializers( app_con ); 

} 

* Private Functions. 

/* Function Name: CreateLabel 

* Description: Creates a the menu label. 

* Arguments: w - the smw widget. 
' * Returns: none. 

* Creates the label object and makes sure it is the first child in 

* in the list. 
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*/ 

Static void 
CreateLabel(w) 
Widget w; 

{ 

SiinpIeMenuWidget smw = (SimpleMenuWidget) w; 
register Widget * child, * next_child; 
register int i; 
Arg args[2]; 

if ( (smw->siinple_menu.label_string == NULL) 1 1 
(smw->simpie_menu.label != NULL) ) { 
char error_buf[BUFSIZ]; 

sprintf(error_buf. "Xaw Simple Menu Widget: %s or %s, %s\ 
"label string is NULL", "label aheady exists", 
"no label is being created."); 

XtAppWarmng(XtWidgetToApplicationContext(w) , error_buf) ; 

return; 

} 

XtSetArg(args[0], XtNlabel, smw->simple_menu.label_string); 
XtSetArg(args[l], XtNjustify, XtJustify Center); 
smw->simple_menu,label = (SmeObject) 

XtCreateManagedWidget("menuLabel" , 

smw- > simple_menu.label_class, w, 

args, TWO); 

next^child = NULL; 

for (child = smw- > composite. children -f smw- > composite. num_children, 
i = smw- > composite. num_children ; i > 0 ; i--, child—) { 
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if (next_child != NULL) 
*next_child = *chilci; 
next_child = child; 

} 

*child = (Widget) sinw->simple_inenu. label; 

} 



/* Function Name: Layout 

* Description: lays the menu entries out all nice and neat. 

* Arguments: w - See below (+ ++) 

* width_ret, height_ret - The remmed width and 

* height values. 

* Returns: none. 
* 

* if width = = NULL 1 1 height = = NULL then it assumes the you do not care 

* about the return values, and just want a relayout. 

* if this is not the case then it will set width_ret and height_ret 

* to be width and height that the child would get if it were layed out 

* at this time. 

* + 4- + "w*' can be the simple menu widget or any of its object children. 
♦/ 



static void 

Layout(w, width_ret, height_ret) 
Widget w; 

Dimension *width_ret, *height_ret; 

{ 

SmeObject currcnt_entry, *entry; 
SimpleMenuWidget smw; 
Dimension width, height; 
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Boolean do Jayout = ((height^re? == NULL) j j (wiciih_ret == NULL)); 
Boolean allow_change_size; 
height = 0; 

if ( XtIsSubclass(w, puIiRightMenuWidgetClass) ) { 
smw = (SimpleMenuWidget) w; 
current^entry = NULL; 

} 

else { 

smw = (SimpleMenuWidget) XtParent(w); 
current_entry = (SmeObject) w; 

} 

allow^change^size = (!XtIsRealized((Widget)smw) | j 
(smw- > shelLallow_shell_resize)); 

if ( smw- > simple_menu.menu_height ) 
height = smw->core.height; 

else 

if (dojayout) { 

height = smw->simple_menu.top_margin; 
ForAllChildren(smw, entry) { 

if (!XtIsManaged( (Widget) *entry)) continue; 

if ( (smw->simple_memi.row_height != 0) && 
(*entry != smw- >simple_menu, label) ) 
(*entry)->rectangle.height = smw->simple_menu.row_height; 

(*entry)->rectangle,y = height; 

(♦entry)- >rectangle.x = 0; 

height += (*entry)-> rectangle, height; 

} 
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height += sraw->siinple_raenu.bottom_inargin; 

} 

else { 

if ((smw->siinple_menu.row_height != 0) && 
(current_eiitry != smw->siinple_menu. label) ) 
height = sin\v-> simple_nienu.ro w_height; 

} 

if (smw- > siinple_menu.menu_width) 

width = smw- > core, width; 
else if ( allow_change_si2e ) 

width = GetMenuWidth((Widget) smw. (Widget) current_entry); 

else 

width - smw- > core. width; 

if (do Jayout) { 

ForAllChildren(smw, entry) 

if (XtIsManaged( (Widget) ♦entry)) 
(*entry)-> rectangle, width = width; 

if (allow_change_size) 

MakeSetValuesRequest((Widget) smw, width, height); 

} 

else { 

*width_ret = width; 
if (height != 0) 

*height_ret = height; 

} 

} 



/* 
* 



Function Name: AddPositionAction 

Description: Adds the XawPositionSimpleMenu action to the global 
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* action list for this appcon. 

* Arguments: app_con - the application context for this app. 
^ data - NOT USED. 

* Returns: none. 
*/ 

/* ARGSUSED */ 
static void 

AddPosiuonAcuon(app_con, data) 
XtAppContext app_con; 
caddrj data; 

{ 

static XtActionsRec pos^actionQ = { 

{ "XawPositionSimpleMenu", PositionMenuAction }. 

}; 

XtAppAddAcuons(app_con, pos_action» XtNuinber(pos_acuon)); 

} 

/* Function Name: FindMenu 

* Description: Find the menu give a name and reference widget. 

* Arguments: widget - reference widget. 

name - the menu widget's name. 

* Returns: the menu widget or NULL. 
*/ 

static Widget 
FindMenu(widget, name) 
Widget widget; 
String name; 

{ 

register Widget w, menu; 
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for ( w = widget ; w ! = NULL ; w = XtParent(w) ) 
if ( (menu = XtNameToWidger(w, name)) ! = NULL ) 
retuni(menu); 
renim(NULL); 

} 

/* Function Name: PositionMenu 



* Description: Places the menu 

* Arguments: w - the simple menu widget. 

* location - a pointer the the position or NULL. 

* Returns: none. 



static void 

PositionMenu(w, location) 
Widget w; 
XPoint * location; 

{ 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 

SmeObject entry; 

XPoint tjoint; 

static void MoveMenu(); 



if (location == NULL) { 
Window junkl, junk2; 
int root^x, root_y, junkX, junkY; 
unsigned int jtmkM; 

location = &t_j)oint; 

if (XQueryPointer(XtDisplay(w). XtWindow(w), &junkl, &junk2, 

&root_x, &root_j, &junkX, &junkY, &junkM) FALSE) { 
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char error_bufTBUFSIZ]; 

sprintf(error_buf, "%s %s", "Xaw - SimpleMenuWidgei:". 

"Could not find location of mouse pointer"); 
XtAppWaming(XtWidgetToApplicationConiext(w) , error_buf) ; 
return; 

} 

location- >x = (short) root_x; 
location- >y = (short) root^y; 

} 

/* 

* The width will not be correct unless it is realized. 
*/ 

XtRealizeWidget(w); 

location- >x -= (Position) w-> core. width/2; 

if (smw->simple_menu,popup_entiy == NULL) 
entry = smw->simple_menu. label; 

else 

entry = smw->siniple_menu.popup_entry; 

if (entry != NULL) 

location- > y -= entry- >rectangle.y + entry- >rectangle.height/2; 

MoveMenu(w, (Position) location- >x, (Position) location- >y); 

} 

/* Function Name: MoveMenu 

* Description: Actually moves the menu, may force it to 

* to be fully visable if menu_on_screen is TRUE. 
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* Arguments: w - the simple menu widget. 

* X, y - the current location of the widget. 

* Returns: none 
*/ 

static void 
MoveMenu(w, x, y) 
Widget w; 
Position X, y; 

{ 

Arg arglist[2]; 
Cardinal num_args = 0; 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 

if (smw->simple_menu.menu_on_screen) { 

int width = w-> core. width + 2 * w->core.border_width; 
mt height = w->core.height + 2 * w->core.border_width; 

if (X < 0) 
X = 0; 
else { 

int scr_width = WidthOfScreen(XtScreen(w)); 
if (x -h width > scr_width) 
X = scr_width - width; 

} 

if(y < 0) 
y = 0; 
else { 

int scr^height = HeightOfScreen(XtScreen(w)); 
if (y + height > scr_height) 
y = scr_height - height; 
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XtSetArg(argIist[nuni_args], XtNx, x); num_args + + ; 
XtSetArg(arglist[nuni_args], XtNy, y); num_^args + -f; 
XtSetValues(w, arglist, num^args); 



/* Function Name: ChangeCursorOnGrab 

* Description: Changes the cursor on the active grab to the one 

* specified in out resource list. 

* Arguments: w - the widget. 

* junk, garbage - ** NOT USED **. 

* Returns: None. 



/* ARGSUSED */ 
static void 

ChangeCursorOnGrab(w, jimk, garbage) 
Widget w; 

caddr__t junk, garbage; 

{ 

SimpleMenu Widget smw = (SimpieMenuWidget) w; 



/* 

* The event mask here is what is currently in the MIT implementation. 

* There really needs to be a way to get the value of the mask out 

* of the toolkit (CDP 5/26/89). 
*/ 

XChangeActivePointerGrabCXtDisplay(w), ButtonPressMaskj ButtonReleaseMask, 

smw- > simple_menu. cursor, CurrentTime) ; 
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/* Function Name: MakeSetValuesRequest 

* Description: Makes a (possibly recursive) call to SetValues, 

* I take great pains to not go into an infinite loop. 

* Arguments: w - the simple menu widget. 

* width, height - the size of the ask for. 

* Returns: none 



static void 

MakeSetValuesRequest(w, width, height) 
Widget w; 

Dimension width, height; 
{ 

SunpleMenuWidget smw = (SimpIeMenuWidget) w; 
Arg arglist[2]; 

Cardinal num_args = (Cardinal) 0; 

if ( !smw->simple_menu.recursive_set_values ) { 

if ( (smw- > core. width != width) 1 1 (smw->core.height != height) ) { 
smw->simple_menu.recursive_set_vaiues = TRUE; 
XtSetArg(arglist[num_args], XtNwidth, width); num_args+ + ; 
XtSetArg(arglist[num_args], XtNheight, height); num_args+ + ; 
XtSetValues(w, arglist, num_args); 

} 

else if (XtIsRealized( (Widget) smw)) 

Redisplay((Widget) smw, (XEvent ♦) NULL, (Region) NULL); 

} 

smw->simple_menu.recursive_set_values = FALSE; 

} 
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/* Function Name: GetMenuWidth 

* Description: Sets the length of the widest entry in pixels. 

* Arguments: w - the simple menu widget. 

* Returns: width of menu. 
*/ 

static Dimension 
GetMenuWidth(w, w_ent) 
Widget w, w_ent; 

{ 

SmeObject currently = (SmeObject) w_ent; 
SimpleMenuWidget smw = (SimpIeMenuWidget) w; 
Dimension width, widest = (Dimension) 0; 
SmeObject * entry; 

if ( smw->simple_menu.menu_width ) 
retum(smw- > core.width); 

ForAllChildren(smw, entry) { 
XtWidgetGeometry preferred; 

if (!XtIsManaged( (Widget) *entry)) continue; 

if (*entry ! = cur_entry) { 

Xt(JueTyGeometry(*entry, NULL, &preferred); 

if (preferred.request^mode & CWWidth) 
width = preferred, width; 

else 

width = (*entry)-> rectangle, width; 

} 

else 
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width = (*entry)-> rectangle, width; 

if ( width > widest ) 
widest = width; 

} 

retum( widest); 

} 

/* Function Name: GetMenuHeight 

* Description: Sets the length of the widest entry in pixels. 

* Arguments: w - the simple menu widget. 

* Returns: width of menu. 
V 

static Dimension 
GetMenuHeight(w) 
Widget w; 
{ 

SimpleMenu Widget smw = (SimpleMenuWidget) w; 
SmeObject * entry; 
Dimension height; 

if (smw->siii^)le_menu.menu_height) 
retum(smw- > core.height) ; 

height = smw->simpIe_menu.top_margin + smw- > simple_menu.bottom_margin; 

if (smw->simple_menu.row_height ==0) 
ForAllChildren(smw, entry) 

if (XtlsManaged ((Widget) *entry)) 

height +- (*entry)-> rectangle. height; 
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else 

height sinw->simple_menu.row_height * sm\v-> composite. num^children; 
retum(height); 

} 

Function Name: GetEventEntry 

Description: Gets an entry given an event that has X and Y coords. 
Arguments: w - the simple menu widget. 

event - the event. 
Returns: the entry that this point is in. 

static SmeObject 
GetEventEntry (w, event) 
Widget w; 
XEvent * event; 

{ 

Position x_loc, y_loc; 

SimpleMenu Widget smw = (SimpleMenuWidget) w; 
SmeObject * entry; 

switch (event- > type) { 
case MotionNotify: 

xjoc = event- >xmotion.x; 

yjoc = event- >xmotion.y; 

break; 
case EnterNotify: 
case LeaveNotify: 

x_loc = event- >xcrossing.x; 

y_loc = event- >xcrossing.y; 

break; 



♦ 
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case BunonPress: 
case ButtonRelease: 

xjoc = event- >xbunon.x; 

yjoc = event- >xbutton.y; 

break; 
default: 

XtAppError(XtWidgetToApplicationContext(w), 

"Unknown event type in GetEventEntryQ."); 

break; 

} 

if ( (xJoc < 0) i I (xJoc > = smw-> core. width) 1 1 (yJoc < 0) | j 
(yJoc > = smw->core.height) ) 
retiim(NULL); 

ForAllChildren(smw, entry) { 

if (IXflsManaged ((Widget) *entry)) continue; 

if ( ((*entry)->rectangle.y < yJoc) && 

((*entry)->rectangle.y + (*entry)->rectangle.height > yJoc) ) 
if ( *entry == sniw->simple_nienu. label ) 

retum(NULL); /* cannot select the label. */ 

else 

retum(*entry); 

} 

remm(NULL); 

} 
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source/Select, c 



* Selection from list widget 



^include " . ./include/xwave.h" 

void Select(w,ciosure,call_data) 

Widget w; 

caddr_t closure, call__data; 

{ 

Selection sel = (Selection)closure; 

Widget button=FindWidget(sel- > button, w), 

shell = Shell Widget(sel- > name,button,SW_below,NULL,NULL), 
fonn=ForniatWidget("sel_fonn",shell), list_widget, widgets[3]; 
String *list = (sel- > list j)roc)0; 
Formltem itemsD = { 

{ "sel^cancer , "close" ,0,0,FWjcon,NULL} , 

{ "seljabel" , (String)sel- > action_nanie, 1 ,0,FWJabel,NULL} , 

{ "sel_view^IWIi,0.2,FW_view,NULL} , 

}; 

XtCallbackRec list^callsQ = { 
{Destroy ,(caddr_t)shell} , 
{sel- > action_proc,sel- > action_closure} , 
{NULL,NULL}. 
. }, callbacksD = { 



wo 94/23385 



PCT/GB94/00677 



319 - 



{Destroy , (caddr_t)shell} , 
{NULL.NULL}, 

}; 

Arg args[l]; 



FillFonn(fonn,THREE,items,widgeis,cailbacks); 
XtSetArg(args[0],XtNlist,list); 

list_widget=XtCreateManagedWidget("sel_listMistWidgetClass,widgets[2],args.0NE); 
XtAddCaIlbacks(list_widget,XtNcallback,list_calls); 
XtPopup(shell,XtGrabExcIusive) ; 

} 
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source/SmeBSBpr.c 



#if ( Idefineddint) !defmed(SABER) ) 

static char XrcsidQ = "SXConsortium: SmeBSB.c,v 1.9 89/12/13 15:42:48 kit Exp S"; 
#endif 

/* 

* Copyright 1989 Massachusetts Institute of Technology 
* 

* Pennission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 
documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

* BE UABLE FOR ANY SPECL\L, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS. 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORiMANCE OF THIS SOFTWARE. 
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*/ 
/* 

* SmeBSBpr.c - Source code file for BSB pull-right Menu Entry object. 
* 

*/ 

#include <stdio.h> 
#mclude <Xll/IntrinsicP.h> 
^include <Xll/StringDefs.h> 

#include <X11/Xmu/Drawing.h> 

iS^include <X11/Xaw/Xawlnit.h> 
jjfinclude <Xll/Xaw/SiinpleMenu.h> 
#include "SmeBSBprP.h" 
#include <X11/Xaw/Cardmals.h> 

#defme ONE_HUNDRED 100 

#defme offset(field) XtOffset(SmeBSBprObject, sme_bsb. field) 

static XtResource resourcesQ = { 
{XtNlabel. XtCLabel, XtRString, sizeof(String), 

offsetdabel), XtRString, NULL}, 
{XtNvertSpace, XtCVertSpace, XtRInt, sizeof(int), 

offset(vert_space), XtRImmediate, (caddrj) 25}, 
{XtNleftBitmap, XtCLeftBitmap, XtRPixmap, sizeof(Pixmap), 

offset(left_bitmap), XtRImmediate, (caddr_t)None}, 
{XtNjustify, XtCJustify, XtRJustify, sizedf(XtJustify), 

offsetOustify), XtRImmediate, (caddrj) XtJustifyLeft}, 
{XtNrightBitmap, XtCRightBitmap, XtRPixmap, sizeof(Pixmap), 
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offset(right_bitmap), XtRImmediate, (caddr_t)None} . 
{XtNleftMargin, XtCHorizontalMargins, XtRDimension, sizeof(Dimension), 

offset(left_margiii), XtRImmediate, (caddrj) 4}, 
{XtNrightMargm, XtCHorizontalMargins, XtRDimension, sizeof(Dimension), 

offset{right_margin), XtRImmediate, (caddrj) 4}, 
{XtNforeground, XtCForeground, XtRPixel, sizeof (Pixel), 

offset(foreground), XtRString, "XtDefaultForegroimd"}, 
{XtNfont, XtCFont, XtRFontStnict, si2eof(XFontStract *), 

offset(font), XtRString, "XtDefaultFont"}, 
{XtNmenuName, XtCMenuName, XtRString, sizeof (String), 
offset(menu_name), XtRString, (caddr_t)"menu"}, 

}; 

#undef offset 
/* 

* Semi Public function definitions. 
*/ 

static void Redisplay 0. Destroy Q, InitializeQ, FlipColorsQ, PopupMenuQ; 

static void ClassInitializeQ; 

static Boolean SetValuesQ; 

static XtGeometry Result Query Geometry 0; 

/* 

* Private Function Definitions. 
*/ 

static void GetDefaultSizeQ, DrawBitmapsQ, GetBitmapInfoQ; 
static void CreateGCsQ, DestroyGCsQ; 

#defme superclass (&smeClassRec) 
SmeBSBprClassRec smeBSBprClassRec = { 
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{ 

/* superclass */ (WidgetClass) superclass, 

/* class_name */ "SmeBSBpr", 

/♦ size */ sizeof(SmeBSBprRec), 

/* class^initiaiizer */ Classlnitialize, 

/* class j)art_initialize*/ NULL, 

/* Class init'ed */ FALSE, 

/* initialize */ Initialize, 

/* initialize^hook */ NULL, 

/♦realize */ NULL, 

/* actions */ NULL, 

/* num^actions */ ZERO, 

/* resources */ resources, 

/* resource_count */ XtNuihber(resources), 

/* xrm^class */ NULLQUARK, 

/* comprcss_motion */ FALSE, 

/* compress_exposure */ FALSE, 

/* compress_enterleave*/ FALSE, 

/* visible_interest */ FALSE, 

/* destroy */ Destroy, 

/* resize */ NULL, 

/* expose */ Redisplay, 

/* set_vaiues */ SetValues, 

/* set_values_hook */ NULL, 

/* set_values_alinost */ XtlnheritSetValuesAlmost, 

/* get_values_hook */ NULL, 

/* accept_focus */ NULL, 

/* intrinsics version */ XtVersion, 

/* callback offsets */ NULL, 

/* tm_^table */ NLTi, 

/* query ^geometry */ Query Geometry, 

/* display _accelerator*/ NULL, 
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/* extension 



*/ NULL 



}.{ 



/* Menu Entry Fields */ 



/* highlight */ 
/* unhighlight */ 
/* notify */ 



FlipCoiors, 
FlipColors, 
PopupMenu, 



/* extension 



*/ NULL 



/* BSB pull-right Menu entry Fields */ 



/* extension 



*/ NULL 



}; 



WidgetClass smeBSBprObjectClass = (WidgetClass) &smeBSBprClassRec; 



4i 



/* Function Name: Classlnitialize 

* Description: Initializes the SmeBSBprObject. 

* Arguments: none. 

* Returns: none. 
*/ 

static void 
ClassInitializeQ 



* Semi-Public Fxmctions. 




wo 94/23385 



PCT/GB94/00677 



- 325 - 

XawInitializeWidgetSetO ; 

XtAddConvener( XtRStrmg, XtRJustify, XmuCvtStringToJustify, NULL, 0 ); 

} 

/* Function Name: Initialize 

* Description: Initializes the simple menu widget 

* Arguments: request - the widget requested by the argimaent list. 

* new - the new widget with both resource and non 

* resource values. 

* Returns: none. 
*/ 

/* ARGSUSED */ 
static void 

Initialize(request, new) 
Widget request, new; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) new; 



if (entry- >sme__bsb. label == NULL) 
entry- >sme_bsb.label = XtName(new); 

else 

entry- > sme_bsb.label = XtNewString( entry- >smej5sb. label ); 

/* Xaw bug - bitmap initialization now performed */ 
if (entry- >sme_bsb.left_bitmap != None) GetBitmapInfo(eniry, TRUE); 
if (entry- >sme_bsb.right_bitmap != None) GetBitmapInfo(entry, FALSE); 

CreateC3Cs(new); 

GetDefaultSize(new, &(entry- > rectangle. width),. &(entry- > rectangle. height)); 

} 
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/* Function Name: Destroy 

* Description: Called at destroy time, cleans up. 

* Arguments: w - the simple menu widget. 

* Returns: none. 
*/ 

static void 
Destroy(w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
Destroy GCs(w); 

if (entry- >sme_bsb. label != XtName(w)) 
XtFree(entTy- > sme_bsb. label); 

} 

/* Function Name: Redisplay 

Description: Redisplays the contents of the widget. 

* Arguments: w - the simple menu widget. 

* event - the X event that caused this redisplay. 

* region - the region the needs to be repainted. 

* Returns: none. 
*/ 

/* ARGSUSED */ 
static void 

Redisplay (w, event, region) 
Widget w; 
XEvent * event; 
Region region; 

{ 
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GC gc; 

SmeBSBprObject entry = (SmeBSBprObject) w; 
int font_ascent, font^descent, yjoc; 

entry- >sine_bsb.set_values_area_clearecl = FALSE; 
font_ascent = entry- >sme_bsb. font- >max_bounds. ascent; 
font^descent = entry- >snie_bsb.font->max_bounds.descent; 

yJoc = entry- > rectangle, y; 

if (XtlsSensiiive(w) && XtIsSensiiive( XtParent(w) ) ) { 

if ( w = = XawSimpleMenuGetActiveEntry(XtParent(w)) ) { 
XFillRectangle(XtDisplayOfObject(w), XtWindowOfObject(w), 
entry- >sme_bsb,nonn _jc, 0, y_loc, 
(unsigned int) entry- > rectangle. width, 
(unsigned int) entry- >rectangle,height); 
gc = entry- >sme_bsb.rev_gc; 

} 

else 

gc = entry- >sme_bsb.norm_gc; 

} 

else 

gc = entry- >sme_bsb.norm_gray_gc; 

if (entry- >sme_bsb.Iabel != NULL) { 

int xjoc = entry- >sine_bsb.left_margin; 
int len = strlen(entry->sme_bsb. label); 
char * label = entry- >sme_bsb.label; 

switch(entry- > sme_bsb .justify) { 
int width, t width; 
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case XJustifyCenter: 

t_width = XTextWidth(entry->sme_bsb.font, label, len); 

width = entry- > rectangle. width - (entry- >sme_bsb.Ieft_inargin + 

entry- > sme_bsb.right_margin); 

xjoc + = (width - t_width)/2; 

break; 
case XtJustifyRight: 

t_width = XTextWidth(entry->sme_bsb.font, label, len); 

xJoc = entry- > rectangle. width - (entry- >sme_bsb.right_margin + 

t^width); 

break; 
case XJustifyLeft: 
default: 

break; 

} 

y_loc -f= (entry- > rectangle.height - 

(font_ascent + font_descent)) / 2 + font_ascent; 

XDrawString(XtDisplayOfObject(w). XtWindowOfObject(w), gc, 
xJoc, y_loc, label, len); 

} 

DrawBitmaps(w, gc); 

} 



/* Function Name: SetValues 

* Description: Relayout the menu when one of the resources is changed. 

* Arguments: current - current state of the widget. 

* request - what was requested. 

* new - what the widget will become. 



wo 94/23385 



PCT/GB94/00677 



• 329 - 

* Returns: none 
*/ 

/* ARGSUSED */ 
sutic Boolean 

SetValues(current, request, new) 
Widget current, request, new; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) new; 
SmeBSBprObject old^entry = (SmeBSBprObject) current; 
Boolean ret^val = FALSE; 

if (old_entry->sme_bsb.label != entry- >sme_bsb. label) { 
if (old_entry->sme_bsb.label != XtName( new ) ) 
XtFree( (char *) old_entry->sme_bsb.label ); 

if (entry- >smej)sb.label != XtName(new) ) 

entry- >sme_bsb.label = XtNewString( entry- >snie_bsb. label ); 

ret_val = True; 

} 

if (entry- >rectangle.sensitive != old_entty->rectangle.sensitive ) 
retval = TRUE; 

if (enay- > sme_bsb.left_bitixiap != old_entry->sme_bsb.left_bitmap) { 
GetBitmapMo(iiew, TRUE); 
ret_val = TRUE; 

} 

if (entry- >sme_bsb.right_bitmap != old_entry->sme_bsb.right_bitniap) { 
GetBitmapInfo(new, FALSE); 
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ret_val = TRUE; 

} 

if ( (old_entry->sme_bsb.font != entry- >sme_bsb. font) j | 

(oId_entry->sme_bsb. foreground != entry- >sme_bsb. foreground) ) { 
Destroy GCs(current) ; 
CreateGCs(new); 
ret_val = TRUE; 

} 

if (ret^val) { 

GetDefaultSize(new. 

&(entry- > rectangle . width) , &(entry- > rectangle.height)) ; 
entry- >sme_bsb.set_values_area_cleared = TRUE; 

} 

retum(ret_val); 

} 

/* Function Name: QueryGeometry. 

* Description: Returns the preferred geometry for this widget. 

* Argimients: w - the menu entry object. 

* . itended, retum_val - the intended and return geometry info, 

* Returns: A Geometry Result. 

* See the Intrinsics manual for details on what this function is for. 

* I just return the height and width of the label plus the margins. 
*/ 

static XtGeometryResult 
QueryGeometry(w, intended, retum_val) 
Widget w; 
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XtWidgetGeomeny *iiitended, *retuni_val; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
Dimension width, height; 
XtGeometryResult ret_val = XtGeometryYes; 
XtGeometryMask mode = intended- >request_mode; 

GetDefaultSize(w, &width/&height ); 

if ( ((mode & CWWidth) && (intended- > width ! = width)) 1 1 
!(mode & CWWidth) ) { 
retum_vaI->request_mode |= CWWidth; 
retum^val- > width = width; 
ret_val = XtGeometry Almost; 

} 

if ( ((mode & CWHeight) 8l8l (intended- > height != height)) | | 
!(mode & CWHeight) ) { 
retum_vaI->request_mode j= CWHeight; 
retum_val-> height = height; 
ret_val = XtGeometry Almost; 

} 

if (ret^val = = XtGeometryAlmost) { 
mode = retum_val->request_mode; 

if ( ((mode & CWWidth) && (width == entry- > rectangle. width)) && 
((mode & CWHeight) && (height == entry- > rectangle. height)) ) 
retiim(XtGeometryNo) ; 

} 



retum(ret_val); 
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} 

/* Function Name: FlipColors 

* Description: Invert the colors of the current entry. 

* Arguments: w - the bsb menu entry widget. 

* Returns: none. 
*/■ 

static void 
FlipColors(w) 
Widget w; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if (entry- >sme_bsb.set_values_area_cleared) return; 

XFaiRectangle(XtDisplayOfObject(w), XtWindowOfObject(w), 

entry- >sme_bsb.invert_gc, 0, (int) entry- > rectangle. y, 
(xmsigned int) entry- > rectangle, width, 
(unsigned int) entry- >rectangle.height); 

} 

* Private Functions. 

/* Function Name: GetDefaultSize 

* Description: Calculates the Default (preferred) size of 

* this menu entry. 

* Arguments: w - the menu entry widget. 
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* width, height - default sizes (RETURNED). 

* Returns: none. 
*/ 

static void 

GetDefaultSize(w, width, height) 
Widget w; 

Dimension * width, * height; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if (entry- >sme_bsb.Iabel == NULL) 
*width = 0; 

else 

♦width = XTextWidth(entry->sine_bsb.font, entry- >sme_bsb. label, 
strlen(entry- > sme_bsb.label)); 

♦width += entry- >sme_bsb.left_margin -I- entry- >sme_bsb.right_margin; 

♦height = (entry- >sme_bsb. font- >max_bounds.ascent + 
entry- > sme_bsb.font- > inax_bounds. descent); 

♦height = (♦height ♦ ( ONE_HUNDRED + 

entry- >smej)sb.vert_space )) / ONE_HUNDRED; 

} 

/* Function Name: DrawBitmaps 

* Description: Draws left and right bitmaps. 

* Arguments: w - the simple menu widget. 

* gc - graphics context to use for drawing. 

* Returns: none 
*/ 
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static void 

DrawBitmaps(w, gc) 
Widget w; 
GC gc; 
{ 

int xjoc. yjoc; 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if ( (entry- >sme_bsb.left_bitmap = = None) && 

(entry- >sme_bsb.right_bitmap == None) ) return; 

/* 

* Draw Left Bitmap. 
*/ 

y_loc = entry- > rectangle. y -h (entry- > rectangle. height - 

entry- > sme_bsb.left_bitniap_height) / 2; 

if (entry- >sme_bsb.left_bitinap != None) { 
xjoc = (entry- > sme_bsb.left_iiiargin - 

entry- >sme_bsb.left_bitmap_width) / 2; 
XCopyPlane(XtDisplayOfObject(w), entry- > sme_bsb.left_bitmap, 
XtWindowOfObject(w), gc, 0, 0, 
entry- > sme_bsb*left_bitmap_width, 
entry- >sme_bsb.left_bitmap_height, x_loc, y_loc, 1); 

} 

/* 

* Draw Right Bitmap. 
*/ 

y_loc = entry- > rectangle. y + (entry- > rectangle. height - /* Xaw bug - yJoc 
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calculated from right_bitmap data */ 

entry- >sme_bsb.right_bitinap_height) / 2; 

if (entrj'->sme_bsb.right_bitmap != None) { 
x_loc = entry- > rectangle. width - (entry- >sme_bsb.right_margin + /* Xaw bug - + 
rather than - sign */ 

entry- >sme_bsb.right_bitniap_width) / 2; 
XCopy Plane(XtDisplay OfObject(w) , entry- > sme^bsb . right^bitmap , 
XtWindowOfObject(w), gc, 0, 0, 
entry- > sme_bsb.right_bitmap_width, 
entry- >sme_bsb.right_bitmap_height, xjoc, yjoc, 1); 

} 

} 

Function Name: GetBitmapInfo 

Description: Gets the bitmap information from either of the bitmaps. 
Arguments: w - the bsb menu entry widget. 

isjeft - TRUE if we are testing left bitmap, 

FALSE if we are testing the right bitmap. 

Returns: none 
static void 

GetBitmapInfo(w, isjeft) 
Widget w; 
Boolean isjeft; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
unsigned int depth, bw; 
Window root; 
int X, y; 

unsigned int width, height; 
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char buflBUFSIZ]; 

if (isjeft) { 

if (entry- >sme_bsb.left_bitmap != None) { 
if (!XGetGeometry(XtDisplayOfObject(w), 

entry- > sme_bsb.left_bitniap, &root, 
&x, &y, &width, Aheight, &bw, «S«lepth)) { 
sprintf(buf, "SmeBSB Object: %s %s V%sV.\ "Could not", 
"get Left Bitmap geometry information for menu entry ' 
XtName(w)); 

XtAppError(XtWidgetToAppiicationContext(w) , buf) ; 

} 

if (depth != 1) { 

sprintf(buf, "SmeBSB Object: %s \"%s\"%s.", 
"Left Bitmap of entry ", 
XlName(w), " is not one bit deep."); 
XtAppError(XtWidgetToApplicationContext(w), buf); 

} 

entry- >sme_bsb.left_bitmap_wicith = (Dimension) width; 
entry- > sme_bsb.left_bitniap_height = dimension) height; 

} 

} 

else if (entry- >sme__bsb.right_bitmap != None) { 
if (!XGetGeometry(XtDisplayOfObject(w), 

entry- >sme_bsb.right_bitmap, &ioot, 
&x, &y, i&width, Aheight, &bw, &depth)) { 
sprintf(buf, "SmeBSB Object: %s %s\"%s\".", "Could not", 

"get Right Bitmap geometry information for menu entry ", 
XtName(w)); 

XtAppError(XtWidgetToApplicationContext(w), buf); 

} 

if (depth != 1) { 
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sprmtf(buf, "SmeBSB Object: %s \"%s\"%s.", 

"Right Bitmap of entry XtName(w), 

" is not one bit deep."); 
XtAppError(XtWidgetToAppIicationContext(w), buf); 

} 

entry- >sme_bsb.right_bitmap_width = (Dimension) width; 
entry- >sme_bsb.right_bitmap_height = (Dimension) height; 

} 

} 

Function Name: CreateGCs 

Description: Creates all gc's for the simple menu widget. 
Arguments: w - the simple menu widget. 
Returns: none. 

static void 
CreateGCs(w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
XGCValues values; 
XtGCMask mask; 

values, foreground = XtParent(w)->core.background_pixel; 
values.background = entry- >sme_bsb.foreground; 
values.font = entry- >sme_bsb.font-> fid; 
values. graphics_exposures = FALSE; 

mask = GCForeground [ GCBackground | GCFont | GCGraphicsExposures; 
entry- >sme_bsb.rev_gc = XtGetGC(w, mask, &values); 

values, foreground = entry- >sme__bsb. foreground; 
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values, background = XtParent(v/)-> core. background jjixel; 
entry- >sme_bsb.norm_gc = XtGetGC{w, mask, &values); 

values. fill_style = FillTUed; 

values.tile = XmuCreateStippledPixmap(XtScreenOfObject(w), 

entry- > sme^bsb . foreground , 
XtParent(w)- > core,background_j)ixel, 
XtParent(w)- > core.depth) ; 

values. graphics_exposures = FALSE; 

mask I = GCTile | GCFUlStyle; 

entry- >sme_bsb.norm_gray_gc = XtGetGC(w, mask, &values); 

values. foreground values.background; 
values, backgroxmd = 0; 
vaiues.function = GXxor; 

mask = GCForeground | GCBackground [ GCGraphicsExposures | GCFimction; 
entry- >sme_bsb.invert_gc = XtGetGC(w, mask, &values); 

} 

/* Function Name: DestroyGCs 

* Description: Removes all gc*s for the simple menu widget. 

* Argimients: w - the simple menu widget. 

* Returns: none. 
*/ 

static void 
DestroyGCs(w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
XtReleaseGC(w. entry- > sme_bsb.norm_gc); 
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XtReleaseGC(w, entry- > sme_bsb.nonn_gray_gc) ; 
XtReleaseGC(w, entry- > sme_bsb.rev_gc); 
XtReleaseGC(w, entry- >snie_bsb.invert_gc); 

} 

#ifdef apoUo 
/* 

* The apoUo compiler that we have optomizes out my code for 

* FlipColorsO since it is static, and no one executes it in this 

* file. I am setting the function pomter into the class structure so 

* that it can be called by my parent who will tell me to when to 

* highlight and unhighlight. 
*/ 

void _XawSmeBSBApolloHack 0 
{ 

FlipColorsO; 

} 

#endif /* apoUo */ 

/* Hacked copy of PopupMenu from MenuButton widget to replace XtlnheritNotify */ 
stadc void 

PopupMenu(w, event, params, num_params) 
Widget w; 
XEvent * event; 
String * params; 
Cardinal * numjarams; 

{ 

SmeBSBprObject mbw = (SmeBSBprObject) w; 
Widget menu, temp; 



wo 94/23385 



PCT/GB94/00677 



- 340 - 

Arg arglist[2]; 
Cardinal num_args; 

int menu_x, menu_y, inenu_width, menu_height, button_width, buaon_height; 
Position button_x, button_y; 

temp = XtParent(w); /* Shell not menu entry is parent of menu */ 
while(temp ! = NULL) { 
menu = XtNameToWidget(temp, mbw->sme_bsb.menu_name); 
if (menu = = NULL) 

temp = XtParent(temp); 
else 
break; 

} 

if (menu = = NULL) { 
char error_buf[BUFSIZ]; 
sprintf(error_buf, "MenuButton: %s %s.", 

"Could not find menu widget named", mbw->sme_bsb.menu_name); 
XtAppWaming(XtWidgetToApplicationContext(w), error_buf); 
return; 

} 

if (!XtIsRealized(menu)) 
XtReali2eWidget(menu); 

menu_width = menu- > core, width + 2 * menu->core.border_width; 
button_width = w-> core. width + 2 * w->core.border_width; 
button_height = w->core.height + 2 * w->core.border_width; 

menu_height = menu->core.height + 2 * menu->core.border_width; 

XtTranslateCoords(w, 0, 0, &button_x, &button_y); 
menu x = button x -f button width; 
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menu_y = bunon_y; 

if (menu_x < 0) 

menu^x = 0; 
else { 

int scr_width = WidthOfScreen(XtScreen(raenu)); 
if (menu_x + menu^width > scr_width) 
menu_x = scr_width - menu_width; 

} 



if (menu_y < 0) 

menu^y = 0; 
else { 

int scr_height = HeightOfScreen(XtScreen(menu)); 
if (menu_y + meim_height > scr_height) 
menu_y = scr^height - menu_height; 

} 



nuin_args = 0; 

XtSetArg(argiist[nuin_args], XtNx, menu_x); num_args+ + ; 
XtSetArg(arglist[nuin_args], XtNy, menu^); iiiiin_args+ + ; 
XtSetValues(meiiu, argiist, nuin_args); 



XtPopupSpriiigLoaded(menu) ; 

} 
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source/Storage.c 

/* 

Routines to allow video frames to be stored in memory 

or on disk: NewFrame, GetFrame, SavePrame, FreeFrame, SaveHeader, 

CopyHeader. 

*/ 

#include " . ./include/xwave.h" 
extern FILE *zropenO; 
extern void zseekQ; 
extern void zclose(); 

void NewFrame(vid,number) 

Video vid; 
int number; 

{ 

if (vid- > data[0] [number] = = NULL) { 

int channel, channels=vid->type==M0N0?l:3; 

for(channei =0;chanael < chamiels;chamiel+ +) 
vid- > data[channel] [number] = (short 
*)MALLOC(sizeof(short)*Size(vid,channel,0)*Size(vid,channel,l)); 
} 

} 

void GetFrame(vid,nimiber) 



Video vid; 
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int number; 

{ 

if (vid- > data[0] [number] = = NULL) { 

char file_name[STRLEN], *whoIe_frame; 
FILE *fp, *fopenO; 
int pid, r, c, channel, 

start=vid- > x_offset+ vid- > cols*vid- > y_offset, 

end=(vid->rows-vid->y_offset-vid-> size[l])*vid->ccls-vid- > x_offset, 

inter =vid- > cols-vid- > size[0] ; 

NewFrame(vid,number) ; 

sprintf(file_name, " %s %s/ %s/%s %03d\0" .global- > home,IMAGE_DIR,vid- > path, vid- > f 
iles[0] = = •\0'?vid- > name: vid- > files,number+ vid- > start); 

DprintfCReading file %s\n'',fUe_name); 

fp =zropen(file_name,&pid) ; 

if (vid- > precision ==0) whole_frame=(char 
*)MALLOC(vid- > rows*vid- > cols); 

zseek(fp,vid- > offset); 

for(channel =0;channel < (vid- > type= =M0N0?l:3);channel -t- +) { 
int shift[2] = {vid- > type= = YUV &&. 
channel! =O?vid->UVsample[0]:0,vid-> type == YUV && 
channel! =0?vid- > UVsample[l]:0}; 

Dprintf("Reading channel %d\n" .channel); 
if (vid- > precision = =0) { 



if(0= 
fp)){ 



=fread(whole_frame,sizeof(char),(vid- > cols> > shift[0])*(vid- > rows > > shift[l]), 

Dprintf("Error whilst reading %s\n".file_name); 
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EprintfC Error whilsi reading %s\n".file_name); 

} 

for(r=0;r < vid- > size[l] > > shift[l];r+ +) 

for(c=0;c<vid->size[0]> >shift[0];c + +) { . 
short 

pel =cti(whole_frame[(vid- > x_offset> > shift[0]) +c +((vid- > y_offset > > shift[l]) +r)*( 
vid- > cols > >shift[0])]); 

vid- > data[chaimel][number][c+r*(vid- > size[0] > > shift[0])] = vid- > negative?-! -pel: pel; 

} 

} else { 

if (stan!=0) zseek(fp,start*sizeof(shon)); 
for(r=0;r < vid- > size[l] > > shift[l];r+ +) { 

if(0 = = fread(«&(vid- > data[channel] [number] [r*(vid- > size[0] > > shift[0])]) , sizeof(short) , 
vid- > size[0] > > shift[0] ,fp)) { 

Dprintf("Error whilst reading 

%s\n",file_name); 

Eprintf("Error whilst reading 

%s\n",rile_name); 

} 

if (inter! =0) zseek(fp,inter*sizeof (short)); 
if (vid- > negative) 

for(c=0;c<vid->size[0] > >shift[0];c+-h) 

vid- > data[channel] [number] [c-f-r*(vid- > size[0] > > shift[0])] =-l-vid- > data[channel] [nu 
mber][c -l-r*(vid- > size[0] > > shift[0])] ; 
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soiirce/Storage.c 

/* 

Routines to allow video frames to be stored in memory 

or on disk: NewFrame, GetFrame, SaveFrame, FreeFrame, SaveHeader, 

CopyHeader. 

*/ 

#include ".,/inciude/xwave,h" 
extern FILE *zropen(); 
extern void zseekQ; 
extern void zcloseO; 

void NewFrame(vid,number) 

Video vid; 
int number; 

{ 

if (vid- > data[0] [number] = =NULL) { 

int channel, channels=vid->type==M0N0?l:3; 

for(channel=0;channel < channels;channel+ +) 
vid- > data[cliannel] [number] = (short 
*)MALLOC(si2eof(short)*Size(vid,channel,0)*Size(vid,channel,l)); 

} 

} 

void GetFrame(vid,number) 



Video vid; 
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int number; 



if (vid->daia[0] [number] = = NULL) { 

char fiIe_name[STRLEN], *whole_frame; 
FILE *fip, *fopen(); 
int pid, r, c, channel, 

start =vid- > x^offset + vid- > cols*vid- > y^offset, 

end = (vid- > rows-vid- > y_offset-vid- > size[l ])*vid- > cols-vid- > x^offset, 

inter =vid- > cols-vid- > size[0] ; 

Ne wFrame(vid , number) ; 

sprintf(file_name, " %s %s/ %s/ %s %03d\0" ,global- > home,IMAGE_DIR, vid- > path, vid- > f 
iles[0] = = •\0'?vid- > name: vid- > files,number+vid- > start); 

Dprintf("Reading file %s\n\file_name); 

fip=zropen(file_name,&pid); 

if (vid- > precision = =0) whoie_frame = (char 
*)MALLOC(vid- > rows*vid- > cols); 

zseek(fp , vid- > offset) ; 

for(channel =0;channel < (vid- > type- =M0N0?l:3);channel+ +) { 
int shift[2] = {vid- > type= = YUV && 
channel! =0?vid- > UVsample[0]:0,vid- > type= = YUV && 
channel! =0?vid- > UVsample[l]:0}; 

DprintfCReading channel %d\n", channel); 
if (vid- > precision ==0) { 

if(0= =fread(whole_frame,sizeof(char),(vid->cols> >shift[0])*(vid->rows> >shift[ll)» 
fp)){ 

Dprmtf("Error whilst reading %s\n",file_name); 
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EprintfC'Error whilst reading %s\n",file_name); 

} 

for(r=0;r< vid-> size[l] > > shift[l];r+ +) 

for(c =0;c < vid- > size[0] > > shift[0] ;c + +) { 
short 

pel =cti(whole_frame[(vid- > x_offset > > shift[0]) +c +((vid- > y_offset > > shift[l]) +r)*( 
vid- > cols > > shift[0])]); 



vid- > data[channel] (number] [c+r*(vid- > size[0] > > shift[0])] =vid- > negative?-l-pel:pel; 

} 

} else { 

if (start! =0) zseek(fp,start*sizeof (short)); 
for(r=0;r<vid->size[l]> >shift[l];r++) { 

if(0= =fread(&(vid- > data[channel] [number] [r*(vid- > size[0] > > shift[0])]),sizeof(shon), 
vid->size[0] > >shift[0],fp)) { 

Dprintf("Error whilst reading 

%s\n",file_nanie); 

Eprintf( "Error whilst reading 

%s\n",file_nanie); 

} 

if (inter! = 0) 2seelc(fp , inter*sizeof (short)) ; 
if (vid- > negative) 

for(c=0;c<vid->size[0] > > shift [0];c+-l-) 

vid- > data[channei] [number] [c+r*(vid- > size[0] > > shift[01)] =-l-vid- > data[cfaannel][nu 
mber] [c + r*(vid- > size[0] > > shift[0])] ; 
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void SaveHeader(vid) 
Video vid; 

{ 

FILE *fp, *fopen(); 

char file_name[STRLEN]; 

String typesD = {"MONO". "RGB". "YUV"}; 

Dprintf("SaveHeader %s\n",vid->name); 

sprintf(file_name, " %s%s/ %s%s\0",global- > home, VID_DIR, vid- > name,VID_EXT); 
fp = fopen(file_naine, "w"); 
fi?rintf(fp, "Path \" %s\"\n" .vid- > path); 

if (vid- > files[0] ! = '\0') fprintf(fip. "FUes \" %s\"\n" ,vid- > files); 
if (vid->type==YUV) fprintf(fp,"Type %s %d 
%d\n" .types[vid- > type] , vid- > UVsample[0] ,vid- > UVsample[l]) ; 
else fprintf(fp."Type %s\n",iypes[vid->typej); 
if (vid- > rate! =0) fpiintf(fp,"Rate %d\n",vid->rate); 
if (vid- > disk) fprintf(fp, "Disk\n"); 
if (vid->gaimna) ^rintf(fp,"Gamraa\n"); 
fprintf(fp. "Start %03d\n",vid-> start); 
fiprintf(fp, "Length %d\n",vid->size[2]); 
fprintf(fp, "Dimensions %d %d\n",vid->cols,vid->rows); 
switch(vid->trans.type) { 

case TRANS_None: fprintf(fp, "Transform None\n"); break; 

case TRANS_Wave: fprintf(fp,"Transfonn Wavelet %d %d 
%s\n" ,vid- > trans.wavelet.space[0], vid- > trans. wavelet.space[l] ,vid- > trans, wavelet, dim 
?"Yes":"No"); break; 
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} 

fprintf(fp, "Header % d\n",v id- > offset); 

fi3rintf(fp, "Offsets %d %d\n" ,vid- > x_offset, vid- > y_offset) ; 

fjjrintfCfp/Size %d %d\n",vid->size[0],vid->size[l]); 

fprintf(fip, "Precision %d\n",vid-> precision); 

fclose(fp); 

} 

Video CopyHeader(src) 

Video src; 

{ 

Video dst=(Video)MALLOC(sizeof(VideoRec)); 
int channel; 

Dprintf("CopyHeader %s\n\src); 

stn:py(dst- > path,src- > path); 

strcpy(dst- > name,src- > name); 

dst- > type = src- > type ; 

dst- > disk = src- > disk; 

dsi- > gamma = src- > gamma; 

dst- > negative =False; 

dst- > rate = src- > rate; 

dst- > start=src- > start; 

dst- > si2e[0] =src- > size[0] ; 

dst- > size[l] =src- > size[l]; 

dst- > size[2] =src- > size[2] ; 

dst- > UVsample[0] = src- > UVsample[0] ; 

dst- > UVsample[l] =src- > UVsample[l] ; 

dst->offset=0; 

dst- > cols = src- > size[0] ; 
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dst- > rows =src- > si2e[l] ; 

dst->x_offset=0; 

dst->y_offset=0; 

dst- > trans = src- > trans; 

dst- > precision = src- > precision; 

for(channeI=0;channel < (src- > type= =M0N0?l:3);channeI + +) 

dst- >data[channel]= (short **)MALLOC(src->size[2]*sizeof(short *)); 
retum(dst); 
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source/Transform.c 



/* 

Transform video using wavelet transform 

*/ 

#include "xwave.h" 
#include "Transform.h" 
extern short RoundQ; 

void DropVideo(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video video = global- > videos- > next; 
int frame, channel; 

for(channel =0;channel < (global- > videos- > type = =MONO? 1 : (global- > videos- > type = 
= YXJV73 :4)) ;channel + +) 

if (global- > videos- > data[channel] ! =NULL) { 

for (frame =0;frame < global- > videos- > size[2] ;frame + + ) 
if (global- > videos- > data[channel] [frame] ! =NULL) 
XtFree(global- > videos- > data[channel] [frame]); 

XtFree(global- > videos- > data [channel] ) ; 

} 

XtFree(gIobal- > videos) ; 
global- > videos = video; 
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void ChangePrecision(src,d5t,frame,old,new) 



Video src, dsi; 



int 



frame, old, new; 



int channel, i; 

if(src!=dst 1 1 oId!=new) { 
int shift = new-old; 

Dprintf("Changing precision %d to %d for frame %d\n".old,new,ftame); 
for (channel=0;channel<(src->type==MONO?l:3);channel++) { 
int size=Size(src,channel,0)*Size(src,channel,l); 



dst- > data[channel] [frame] [i] = shift < 0?Roxmd(src- > data[channel] [frame] [i] ,-shift) : (shift 
= =0?src->data[channel][frame][i]:src->data[channel][frame][i]< <shift); 



for(i=0;i<size;i++) 



void TransfonnCtrl(w,closure,call_data) 



Widget 



w; 



caddr t 



closure, call data; 



TransCtrl 



Ctrl = (TransCtri)closure ; 
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Video src=ctrl->src, dst=CopyHeader(src); 
long i, frame, channel; 

Dprintf("TransfonnCtrl\n"); 

strcpy (dst- > name,ctrl- > name) ; 

dst- > trans.type =TRANS_Wave; 

dst- > trans, wavelet. space[0] =ctrl- > space[0] ; 

dst- > trans.wavelet.space[l] =ctrl- > space[l]; 

dst- > trans. wavelet.dim=ctrl- > dim; 

dst- > precision=ctrl- > precision; 

strcpy(dst- > files,dst- > name); 

if (dst- > disk) SaveHeader(dst); 

if (src- > trans.type! =TRANS_Wave) { 

src- > trans.type =TRANS_Wave; 

src- > trans, wavelet. space[0] =0; 

src- > trans. wavelet.space[l] =0; 

} 

if (src- > trans. wavelet.space[0]!=dst->trans.wavelet-space[0] ] j 
src- > trans. wavelet.space[l] ! =dst- > trans. wavelet.space[l]) 
for(frame=0;frame<dst->si2e[2];fhune++) { 
int 

maxjjrecision=src- > precision > dst- > precision?src- > precision:dst- > precision; 

Dprintf("Processing frame %d\n", frame); 
NewFrame(dst,frame) ; 
GetFrame(src , frame) ; 

ChangePrecision(src,dst,frame,src- > precision,niaxj)recision); 
for (channel =0;channel < (src- > type = =M0N0?l:3);channel+ +) 



int oct_src=src-> trans. wavelet.space[channel= =0?0:1], 
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oct_dst =dsi- > trans. wavelet.space[channel = =0?0: 1] , 

size[2] = {Size{dst,channel,0).Size(dst,chaiinel,l)} ; 

if (oct_src!=oct_dst) 
Convolve(dst- > ciata[chaimel] [frame] ,ctrl- > dim,size,oct_src,oct_dst); 
} 

ChangePrecision(dst,dst,frame,max _precision,dst- > precision); 

SaveFrame(dst,frame); 

FreeFrame(dst,franie); 

FreeFranie(src,franie); 

} 

if (src-> trans. wavelet.space[0] = =0 && src-> trans. wavelet*space[l] = =0) 
src- > trans,type=TRANS_None; 

if (dst-> trans. waveiet.space[0] = =0 && dst-> trans. wavelet.space[l] = =0) { 

dst- > trans.type=TRANS_None; 

if (dst- > disk) SaveHeader(dst) ; 

} 

dst- > next = global- > videos; 
global- > videos =dst; 

} 

void Transtype(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video vid=(Video)closure; 



if (vid-> trans. wavelet. space[0] = =0 && vid-> trans. wavelet.space[l] = =0) 
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vid- > trans . type = TRANS _None ; 
} 



void BatchTraiisCtrl(w,closure,caIl_data) 



Widget 



w; 



caddr t 



closure, call data; 



TransCtrl Ctrl = (TransCtrl)closure ; 

if (Ctrl- > src= =NULL) Ctrl- > src=FindVideo(ctrl- > src_name,global- > videos); 
if (Ctrl- > src- > trans. type = =TRANS_Wave) 
Ctrl- > dim=ctrl- > src- > trans.wavelet.dim; 
TransformCtrl(w,closure,call_data); 



TransCtrl Ctrl = (TransCtrl)MALLOC(sizeof(TransCtrlRec)) ; 

strcpy(ctrl- > src_name,nanie); 
strcpy (Ctrl- > name,name) ; 
ctrl->dim=False; 

Dprintf("Transform\n"); 
renim(ctrl); 



TransCtrl 



ImtTransCtrl(name) 



String name; 



#defme 



TRANS ICONS 



16 
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void Transform(w,closure,call_data) 



Widget w; 

caddrj closure, call^data; 



Video video =(Video)closure; 

TransCtrl Ctrl =InitTransCtrl(video- > name); 

Nuiiili5)ut spacelnput = (NumInput)MALLOC(2*sizeof(NumInputRec)) , 

preclnput = (Nuinlnput)MALLOC(sizeof(NumlnputRec)) ; 
Message msg =NewMessage(ctrl- > name,NAME_LEN); 
XtCallbackRec destroy^callQ = { 

{Free,(caddr_t)ctrl}, 

{Free,(caddr_t)spacelnput} , 

{Free, (caddr_t)precliiput} , 

{CloseMessage,(caddr_t)insg} , 

{NULL,NULL}, 

}; 

Widget parcnt==FindWidget("fnn_transfonn",XtParent(w)), 



shell =ShellWidget("transfonn" ,parent,SW_below,NlJLL,destroy_call), 

form=ForniatWidget("trans_fonn" ,shell), 
widgets[TRANSJCONS] ; 

Formltem itemsQ = { 

{ "trans^cancer /cancel" ,0,0,FWJcon,NULL} , 
{ " trans_confinn" , "confirm" , 1 ,0,FW Jcon,NULL} , 
{"trans_title", "Transform a video",2,0,FWJabel,NULL}, 
{ "trans_vidjab" , "Video Name: " ,0,3 ,FW Jabel,NULL} , 
{"trans_video",NULL,4,3,FW_text,(String)msg}, 

{ "trans_dim_lab " , "Direction: " ,0,4,FW Jabel,NULL} , 
{ "trans_dim" ,NULL,4,4,FW^n,(String)&ctrl- > dim} , 
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{"traiis_bits_int%NULL,0,6,FW_integer,(Striiig)precInput}, 
{ "t^ans_bits_dov^m^^^JlX,4,6,FW_down,(St^mg)p^ecInput} , 
{ "traiis_bits_up",NULL,9,6,FW_up,(Strmg)precInput} , 

{ ''trans_spcO_int" ,NLrLL,0,8,FW_integer,(String)&spaceInput[0] } , 
{ "traiis_spcO_down" ,NULL,4,8,FW_down,(String)«&spaceInput[0] } , 
{ "traiis_spcO_up" .NULL, 12,8,FW_up, (String)&spaceInput[0]} , 
{ •'trans_spcl_mt\NULL,0 J l,FW_integer,(String)&spaceInput[l]} , 
{ "traiis_spcl_down" ,NULL,4, 1 1 ,FW_down,(String)&spaceInput[ 1]} . 

{"t^alls_spcl_up^NULLa5,ll,FW_up,(St^ing)&spaceInput[l]}, 

}; 

XtCallbackRec callbacksQ = { 
{Destroy,(caddr_t)sheIl}, 
{NULL,NULL}, 
{TraiisfonnCtrl,(caddr J)ctrl} , 
{Destroy ,(caddr_t)shell} , 
{NULL,NULL}, 

{ChajigeYN,(caddr_t)&ctrl->dim}, {NULL,NULL}, 
{NiimIncDec,(caddr_t)precInput}, {NULL.NULL}, 
{NumIncDec,(caddr_t)precIiiput}, {NULL,NULL}, 
{NumIiicDec,(caddrj)&spaceInput[0]}, {NULL.NULL}, 
{NumIncDec,(caddr_t)&spaceIq)ut[0]} , {NULL.NULL} , 
{NumlncDec, (caddr_t)«fcspaceliiput[l] } , {NULL.NULL} , 
{NumIncDec,(caddr_t)4&spaceInput[l]} . {NULL.NULL} , 

}; 

Dpriiitf("Tiansfonii\ii"); 

msg->rows=l; msg->cols=NAME_LEN; 

ctrl->sn:=video; 

if (video- >trans.type==TRANS_Wave) { 

Ctrl- > space[0] =video- > trans.wavelet.space[0]; 
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Ctrl- > space[l] = video- > trans, wavelet. space[l]; 
Ctrl- > dim= video- > trans, wavelet.dira; 
} else { 

Ctrl- > space[0] =0; Ctrl- > space[l] =0; 
ctrl->dim=False; 

} 

Ctrl- > precision = video- > precision; 

spaceInput[0].format=video->type==YUV?"Y-Space: %d":"Space: %d"; 

spacelnput[01 .niax= 100; 

spacelnput[0] .min=0; 

spaceli^)ut[0] . value = &ctrl- > space [0] ; 

if (video- > type = = YUV) { 

spacelnput[l]. format ="UV-Space: %d"; 

spaceli5)ut[l] .max= 100; 

spaceliq)ut[l] .inin=0; 

spaceli5)ut[l] . value=&ctrl- > space[l] ; 

} 

preclnput- > format = "Precision: %d" ; 

preclnput- > max = 16; 

preclnput- > min=0; 

preclnput- > value = &ctrl- > precision; 

FUlFonn(form,TRANSJCONS-(video- > type= = YUV?0:3),items,widgets,callbacks); 
if (video- >trans.type==TRANS_Wave) XtSetSensitive(widgets[6],False); 
XtPopup(shell,XtGrabExclusive) ; 
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source/Update.c 



/* 

Update Image, Info and InfoText from positional information 

*/ 

#include " . ./include/xwave.h" 

#include < varargs.h> 

extern int CompositePixel(); 

extern int DitherQ; 

extern short RoimdQ; 

extern int ReMapQ; 

extern Palette FindPaletteQ; 

char *ResizeData(size) 

int size; 

{ 

static char *data=NULL; 
static int data_size=0; 

if (size!=data_size) { 

Dprintf("New frame memory\n"); 
if (data!=NULL) XtFree(data); 
data=(char *)MALLOC(size); 
data_size=size; 

} 

retum(data); 



wo 94/23385 



PCT/GB94/00677 



- 360 - 

Pixmap Updatelinage(fraine) 
Frame frame; 

{ 

int X, y, i; 

Display *dpy=XtDisplay (global- > loplevel); 
void CvtlndexQ, UpdatePointQ; 

Palette pal = FindPalette(global- > palettes,frame- > palette) ; 

Video vid=frame-> video; 

int scm=XDefaultScreen(dpy), depth =DisplayPlanes(dpy.scm), 

size[21 = {Size(vid,frame- > channel,©) ,Size(vid,frame- > channel, 1)} , 
img_size[2] = {si2e[0] < < frame- > zoom,size[l] < < frame- > zoom} . 
bpl=(img_size[0]*depth+7)/8, new_si2e=img_size[l]*bpU 
space=vid->trans.wavelet.space[vid->type==YUV && 
frame- > channel! =0 && frame- >channel!=3?l:0]; 

char *data = ResizeData(ne w_size) ; 

Xlmage 

*image =XCreateImage(dpy, global- > visinfo- > visual4epth»ZPbanap,0,data,img_size[0] ,i 
mg_size[l].8,bpl); 
Pixmap 

pixniap=XCreatePixniap(dpy,DefaultRootWindow(dpy),img_size[0],img_si2e[l],d 
Dprintf("UpdateImage\n"); 

if (global- > levels ==2 && frame- > channel ==3) frame- > channel =0; 
for(y=0;y<size[l];y++) for(x=0;x<size[0];x++) { 
int data_x=x, data__y=y, off_x, offj^, oct; 

if (vid- > trans.type= =TRANS_Wave) 
CvtIndex(x,y,size[0],size[l],space,&data_x,&data_y,&oct); 

for(off_x=0;off_x < 1< < frame- > zoom;off__x + -f) 

for(off_y =0;off_y < 1< < frame- > zoom;off_y -+-+)( 
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im inig_x = off_x 4- (x < < frame- > zoom) , 
imgjf = off_y + (y < < frame- > zoom) , 

pix = CompositePixel(frame,data_x,data_j, img_x,img_y) ; 

XPutPixel(image,img_x,img_j,ReMap(pix,global- > levels,pal)); 
} 

} 

XPutImage(dpy,pixmap,DefaultGC(dpy,scm),image,0,0,O,^ 

if (fi^e->point_swiich==True) UpdatePoint(dpy,frame,pixmap); 

XtFree(image); 

retuni(pixm^); 

} 

void CvtIndex(x,y,max_x,max_y,oct,ret_x,ret_y,ret_oct) 
int X, y, max_x, max_y, oct, *ret_x, *ret_y, ♦ret_oct; 
{ 

Boolean hgx=x> =(max_x> >1), hgy=y> =(max_y> >1); 

*Tet_x=hgx?x-(max_x> > l):x; 
*retjr=hgy?y-(max_y> > l):y; 
if (!hgx && !hgy && oct > 1) { 

Cvtlndex(*ret_x,*ret_y,max_x> >l,max__y> >l,oct-l,ret_x,ret_y,ret_oct); 
*ret_x= *ret_x< <1; 
*ret_y= ^et_j< <1; 
*ret_oct+ = l; 

} else { 
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*ret_x =(*ret_x < < 1) +hgx; 
*ret_y = (*ret_y < < 1 ) + hgy ; 
*ret_oct=hgx 1 1 hgy?0:l; 

} 

} 

void Updatelnfo(frame) 
Frame frame; 

{ 

Message msg=frame->msg; 
Video vid=frame-> video; 

int *locn=frame- > point- > location, posn[2] == {locn[0] ,locn[l]} . 

channel = 3 = =frame- > channel?0:frame- > channel, 
width= Size(vid,channel,0) ; 

short *data = vid- > data[channel] [frame- > frame] ; 

msg- > info.ptr[0] = *\0* ; 

msg- > info, length =0; 

if (vid- > type ==YUV && channel! =0) { 

posn[0]=posn[03> >vid->UVsample[01; 

posn[l] =posn[l] > > vid- > UVsample[l] ; 

} 

if (vid- > trans.type! = TRANS_Wave) 

Mprintf(msg, "Point : x= %03d y = %03d t= %03d 
c = %4dMocn[0] ,locn[l] .ficame- > frame+ vid- > start,data[posn[0] +Size(vid,chaimel,0)*po 
sn[l]]): 

else { 

ini octs= vid- > trans. wavelet.space[vid- > type= =YUV && 
channel! =0?1:0], 

X, Y, oct, sub. 
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bIkDC[2] = {(posii[0] > > octs)&-2,(posn[l] > > octs)&-2}, 

offDC[2] = {(posn[0]> >octs)&l,(posn[l]> >octs)&l}; 

Mprmtf(insg, "Point : f = %03d x= %03d 
y = %03d\n" .frame- > frame+ vid- > start,locn[0] ,locn[l]); 

Mprintf(msg,"Low pass: x=%03d y=%03d\n",blkDC[0],blkDC[l]); 
for(Y=0;Y<2;Y++) { 

for(X=0;X<2;X++) 



Mprintf(msg." %4d%c",data[Access(blkDC[0] +X,blkDC[l] +Y,octs-l,0,width)],X= =off 

DC[0] && Y==offDC[l]?**':' '); 

Mprmtf(msg,"\n"); 

} 

for(oct=octs;oct>0;oct— ) { 

int blk[2]={(posn[0] > >oct)&-2,(posn[l] > >oct)&-2}, 

offI2] = {(posn[0] > > oct)&l , (posn[l] > > oct)&l } ; 



Mprintf(msg,"Oct : %d\n",oct); 
for(Y=0;Y<2;Y++) { 

for(sub=l;sub<4;sub++) { 
for(X=0;X<2;X++) { 



Mpriiitf(msg, " %4d %c" ,data[Access(bIk[0] +X,blk[l] +Y,oct-l,sub, width)] ,X = =offIO] 
&& Y==offri]?'*':' '); 

> 

if (sub < 3) Mprintfdnsg, " "); 

} 

if (oct! =0 1 1 Y= =0) Mpriiitf(msg, "Xn"); 

} 

} 

} 



QnocrnTt^TX CUCPT /QMl P Of!) 
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Mflush(msg); 



/* Function Name: CrossHair 

* Description: Draws cross-hair on pixmap 

* Arguments: dpy - Xserver display 

* pixmap - pixmap to draw on 

* gc - GC to draw with 

* x_off , y_off - offset into pixmap 

* width, height - size of box containing cross-hair 

* X, y - coordinates within box 

* zoom - scaling factor 

* Returns: alters pixmap. 
*/ 



void CrossHair(dpy,pixmap,gc,x_off,y_off,width»height,x,y,zoom) 

Display *dpy; 
Pixmap pixmap; 
GC gc; 

int x_off, y_off, width, height, x, y, zoom; 

{ 

int xtra = Shift( 1 ,zoom) ; 



x_off = Shift(x_off ,zoom) ; 
y__off = Shift(y_off , zo om) ; 
width = Shift(width,zoom); 
height = Shift(height, zoom) ; 
x=Shift(x,zoom); 
y=Shift(y,zoom); 
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XFillRectangle(dpy.pixinap,gc,x-f x_off-f xtra/2,y_offa,y); /* North hair */' 
XFillRectangle(dpy,pixinap,gc,x_off,y+y_off+xtra/2,xJ);/* West hair */ 
XFillRectangle(dpy ,pixmap,gc,x +x_off + xtra/2,y +y_off + xira, 1 ,height-y-xtra); /* 
South hair */ 

XFillRectangle(dpy,pixnup.gc,x+x_off+xtraj+y_off+xtra/2,width-x-^ 
East hair */ 

} 

Function Name: UpdatePoini 

Description: Draws cross-hair on image at frame- > location 
Arguments: dpy - X server display 

frame - Frame supplying drawing parameters 
pixmap - X pixmap to draw on 
Returns: alters pixmap. 

void UpdatePoint(dpy ,frame,pixmap) 

Display *dpy; 
Frame frame; 
Pixmap pixmap; 

{ 

unsigned long gcmask; 
XGCValues gcvals; 
GC gc; 

Video vid=frame-> video; 

int posn[2] = {frame- > point- > location[0] ,frame- > point- > location[l] } , 
channel=3= =frame- > channel?0:frame- >channel; 

gcvals .function = GXequiv ; 
gcmask = GCFunction; 



Ik 
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gcvals . foreground =127; 
gcinask=gcinask| | GCForeground; 
gc=XCreateGC(dpy,pixmap,gcmask,&gcvals); 
if (vid- > type = =yUV && channel! =0) { 

posn[0] =posn[0] > > vid- > UVsample[0] ; 

posn[l] =posn[l] > > vid- > UVsample[l]; 

} 

if (vid- >trans.type! =TRANS_Wave) { 

CrossHair(dpy,pixmap,gc,0,0,Size(vid,channel,0),Size(vid,channel,l),posn[0],posn[l],fra 
me- > zoom); 
} else { 

int octs=vid->traDs.wavelet.space[vid->type==YUV && 
channel! =0?1:0], oct, 

size[2] = {Size(vid,channel,0),Size(vid,channel,l)}; 

CrossHair(dpy,pixmap,gc,0,0,size[0],size[l] ,posn[0] ,posn[l] .frame- > zoom-octs); 
for(oct=l;oct<=octs;oct-i--t-) { 

CrossHair(dpy ,pixmap,gc,size[0] ,0,size[0] ,size[l] ,posn[0] ,posn[ 1] .frame- > zoom-oct) ; 

CrossHair(dpy,pixmap,gc.O,size[l].size[0] .size[l].posn[0] ,posn[l] .frame- > zoom-oct); 

CrossHair(dpy,pixmap.gc,size[0],size[l],size[0].size[l],posn[0],posn[l],firame->zoom-oct 

); 

} 

} 

XFreeGC(dpy.gc); 

} 
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source A^ideo2.c 



Video callback routines for Listing, Loading 

*/ 

#include " . ./include/xwave.h" 

#include " . ./include/ImageHeader.h" 

^include " . ./include/DTheader.h" 

#include "Video.h" 

^include < sys/time.h > 

extern void EraseFrameQ; 

extern void CvtlndexQ; 

void SortList(list,no) 

String listQ; 
int no; 



{ 



int i, j, k; 

if (no> 1) for(i=l;i<no;i++) for(j=0;j<i;j + +) { 
k=0; 

while(list[i][k] = =iistlj][k] && list[n[k]! = '\0' && list[j][k]! = '\0*)k+ + ; 
ifaist[i][k]<Ust[j][k]){ 

String spare =list[i]; 

list[i]=Iist[j]; 
llst[i]= spare; 

} 
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} 

} 

String *ReadDirectory(dir_path, extension) 
String dirjjath, extension; 

{ 

DIR ♦diip, *opendirO; 
struct dirent *dp, *readdir(): 
static String *fileList=NULL, file; 
int count=0, i; 
char path[STRLEN]; 

Dpriiitf("ReadDircciory for %s extension\n", extension); 
if (fileList!=NULL) { 

for(i=0;NULL! =fileList[i];i+ +) free(fileList[i]); 

free(fileList); 

} 

fileList=(String *)MALLOC(si7-eof(String ♦)*300); 
sprintf(path, " % s %s\0" .global- > home,dir_patli); 
dirp = opendir(path) ; 

for (dp=readdir(diip);dp!=NULL 8l8l count < 299; dp =readdir(dirp)) { 
int length = strlen(dp- > d_name) ; 

if (length > =strlen(extension)) 

if (!strcmp(dp->d_name+length-strlen(extension),extension)) { 
Dprintf("Found %s in dir\n",dp->d_name); 
fileList[count]=(char *)MALLOC(length+l); 
strncpy{fileList[count],dp- > d_name,length-strlen(extension)); 
count+ = l; 

} 
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} 

fileList[couni] =NULL; 
SortList(fileLisi,count) ; 
closedir(dirp); 
renirn(fileList); 

} 

int Shift(value,shift) 
int value, shift; 

{ 

if (shift= =0) return value; 

else if (shift <0) retum( value > > -shift); 

else retum(value < < shift) ; 

} 

int Size(video,channel dimension) 
Video video; 

int channel, dimension; 

{ 

if (video- >type==YUV &.&. dimension! =2 && channel! =0 «&& channel! =3) 
renim(video- > size[dimension] > > video- > UVsaniple[dimension]); 
else renini(video- > size[diinension]); 

} 

int Address2(video,channel,x,y) 



Video video; 

int channel, x, y; 
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{ 

if (video- > type = =YUV && channel! =0 && channel! =3) 
retum(x + Size(video,channel,0)*y) ; 

else remm(x+video->size[0]*y); 

} 

int Address(video,channeUx,y) 

Video video; 

int channel, x, y; 

{ 

if (video- >type= =YUV && channel! =0 && channel! =3) 
reaim((x> > video- >UVsample[0])+Size(video,channel,0)*(y> > video- >UVsample[l]) 

); 

else return(x + video- > size[0] *y) ; 

} 

String *VideoListO 
{ 

Dprintf("VideoList\n"); 
remm(ReadDirectory(VID_DIR,VID_EXT)); 

} 

String *KIicsListO 
{ 

Dprintf("KlicsUst\n"); 

remm(ReadDirectory (KLICS_DIR,KLICS_EXT)) ; 

} 
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String *KJicsListSAO 
{ 

Dprintf("KlicsLisiSA\n''); 

retum(ReadDirectory(KLICS_SA_DIR,KLICS_SA_EXT)); 

} 

String *VideoCurrentListO 
{ 

static String videoList[300]; 
Video video=gIobaI-> videos; 
int count=0; 

Dprintf("VideoCurrentList\n"); 
while (video! =NULL) { 

if (count==300) Dprintf("VideoCurrentList: static size exceeded\n"); 

videoList[cotint] = video- > name; 

video = video- > next; 

count+ = l; 

} 

videoList[count] =NIJLL; 
SortList(videoList,count) ; 
retiim(videoList); 

} 

String *VideoYUVListO 
{ 

static String videoList[300]; 
Video video = global- > videos ; 
int count =0; 
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Dprintf( " VideoCurrentListXn " ) ; 
while (video! = NULL) { 

if (count ==300) Dpriiitf("VideoYUVList: static size exceededVn"); 

if (video- > type = =YUV) videoList [count + 4- ]= video- > name; 

video = video- > next; 

} 

videoList[count] =NULL; 
SortList(videoList,comit) ; 
retum(videoList); 

} 

String *Vi(leoDropListO 
{ 

static String videoList[300]; 
Video video = global- > videos; 
int count=0; 
Boolean VideoHasFrameO; 



DprintfC" VideoDropListXn") ; 
while (video! = NULL) { 

if (False==VideoHasFrame(video,global-> frames)) { 

videoList[count] = video- > name; 

coimt+ = l; 

}: 

video = video- > next; 

} 

videoList[count] =NULL; 
SortList(videoList,count) ; 
retum(videoList); 
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Boolean VideoHasFrame( video, frame) 

Video video; 
Frame frame; 

{ 

if (frame == NULL) rctum(False); 

else if (frame- >vicieo== video) remra(True); 

else retum(VideoHasFrame(vicieo, frame- > next)); 

} 

void VideoLoad(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video vid=(Video)MALLOC(sizeof(VideoRec)); 
XawListRetumStruct *name=(XawListRetiimStruct *)call_data; 
int frame, chamiel; 

Dprintf(" VideoLoad %s\n" ,name- > string); 

stn:py(vid- > iiame,name- > string) ; 

stn:py(vid- > files,name- > string); 

vid- > next=global- > videos; 

global- > videos = vid; 

vid->rate=30; 

Parse(VID_DIR,name- > string, VID^EXT) ; 

for (channel =0;channel < (vid- > type= =M0N0?1 :3);channeH- +) 

vid->data[cliannel]=(short **)MALLOC(sizeof(short ♦)*vid->size[21); 
if (!vid->disk) for(frame=0;frame<vid->size[2];frame++) 
GetFrame(vid , frame) ; 
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Dprimf("VideoLoad terminatedVn"); 

if (global- > batch= =NULL) InitFrame(w,closure,calI_data); 

} 

void VideoSave(w, closure, call_data) 

Widgei w; 

caddr^t closure, call_data; 

{ 

Video video; 

XawListRetumStruct *name=(XawListRetumStruct *)call_data; 
int frame; 

video =FindVideo(name- > string, global- > videos); 

if (video- > files[0] = = '\0') strcpy(video- > files,name- > string); 

SaveHeader(video) ; 

for (franie=0;franie<video->size[2];frame++) { 
Boolean disk = video- > disk; 

GetFrame(video,fi:ame); 
video- >disk=True; 
SaveFrame(video, frame); 
video- > disk=disk; 
FreeFrame(video,frame) ; 

} 

Dprintf("VideoSave tenninated\n"); 

} 

void VideoDTSave(w,closure,call_data) 
Widget w; 
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caddr_t closure, call^data; 

{ 

Video video; 
FILE *fp, ♦fopenO; 

XawListRetumSmict *name=(XawListRemniStruct *)call_data; 
char file_name[STRLEN]. whole_frame[512][512]; 
int frame, i, x, y, offset[2]; 
DTheader 

header={"DT-IMAGEM.4,l,2,"","M,{0,0.4,0},l,l,0,l,{4,3},8,l,{0,2},{0,2},{0,2}.{0 
,2},"","xwave generated image",""}; 

Dprintf("VjdeoDTSave %s\n", name- > string); 
video = Find VideQ(name- > string.global- > videos); 

sprintf(file_name, " %s%s/%s/%s%s\0",global->home,IMAGE_DIR, video- >path,video- 
> files, ".img"); 

offset[0] = (5 12-video- > size[0])/2; 

offset[l] = (512-video- > size[l])/2; 

offset[0] = ofrset[0] < O?0:offset[0] ; 

offset[l] =offset[l] <0?0:offset[l]; 

fp =fopen(file_name, " w"); 

fwrite(&header, 1 ,sizeof(DTheader) .fjp) ; 

GetFrame(video,0); 

for(y=0;y<512;y++) for(x=0;x<512;x++) { 
int X, Y, oct; 

if (y<offset[l] | j x<offset[0] | ! y-offset[l]> = video- >size[l] j | 
x-offset[0] > = video- > size[0]) whole_frame[y][x] =0; 
else { 

if (video- > trans.type = =TRANS_Wave) { 
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C vL[ndex(x-offset[0] , y-offset [ 1 ] , video- > size [0] , video- > size [ 1 ] , video- > trans . wavelet . spa 
ce[0],&X,&Y,&oct); 

whole_frame[y][x] = 128+Round(video- > data[0][0][Y*video- > size[0] +X]*(oa= = video 
->trans.wavelet.space[0]?l:4),video-> precision); 
} else { 

X=x-offset[0]; Y=y-offset[l]; 



whole_frame[y][x] = 128 +Romid( video- > data[0] [0] [Y*video- > size[01 +X] , video- > preci 
sion); 

} 

} 

} 

FreeFrame(video,0); 

fwrite(whole_frameJ,512*512,fjp); 

fclose(fip); 

} 



void VideoXimSave(w,closure,calI_data) 

Widget w; 

caddr t closure, call data; 



Video video; 

FILE *fp, *fopen(); 

XawListRetumStruct *name=(XawListRemmStruct *)call_data; 
char file_naine[STRUEN], *whole_frame; 
int frame, channel, i, x, y; 
ImageHeader header; 

DprintfC'VideoXimSave %s\n" ,name- > string); 



wo 94/233E5 



PCT/GB94/00677 



- 377 - 

video = Find Video(name- > string, global- > videos); 
whoIe_franie=(char *)MALLOC(video-> size[0]*video- > size[l]); 
if (video- > files[0] = = '\0*) strq)y(video- > files,iiarae- > string); 

sprintf(file__name, " %s%s/%s/%s%s\0",global- > home JMAGE_DIR, video- > path, video- * 
> files, ".xim"); 

fp = fopen(file_name , " w ") ; 

sprintf(header.file_version, " %8dMMAGE_VERSI0N); 
sprintf(header.header_size/ %8dM024); 
sprintf(header,iniage_width, " %8d" , video- > size[0]); 
sprintf (header. iniage_height, " %8d", video- > size[l]); 
sprintf(header.num_colors, " %8d" ,256); 

sprintf(header.niim_chamiels," %8d'\ video- >type= =M0N0?1:3); 
sprintf(header.numjpictures, " %8d" ,video- > si2e[2]); 
sprintf(header.alpha_chaiinel, " %4d",0); 
sprintf(header.runlength, " %4d\0); 
sprintf(header,author, " %48s\ "xwave"); 
sprintf(header.date, " %32s " , "Now"); 
spriiiif(header,prograin, " % 16s" /xwave"); 
for(i=0;i<256;i++) { 

header.c__map[i][0]=(unsigned char)i; 

header.c_map[i][l]=(unsigned char)i; 

headerx_inap[i] [2]= (unsigned char)i; 

} 

fwrite(&header, 1 ,sizeof(ImageHeader),fip); 

for (ftame=video->start;frame<video->start+video->size[2];frame++ { 
GetFrame(video,frame-video- > start) ; 

for(chamieI =0;channel < (video- > type = =M0N0?1 :3);channel + +) { 
for(x=0;x < video- > size[0] ;x + +) 

for(y=0;y < video- > si2e[l];y + -f ) 

whole_frame[x-!- video- > si2e[0]*y] =itc(video- > daia[channel] [frame-video- > start][Addre 
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ss(video, channel, x,y)] > > video- > precision); 

fwrite(whole_frame,si2eof(char), video- > size[0]*video- > size[l],fp); 

) 

FreeFrame( video, frame-video- > start); 

} 

fciose(fp); 

XtFree(whole_fTame) ; 

} 

void VideoMacSave(w,closure,call_data) 

Widget w; 

caddr^t closure, call_data; 

{ 

Video video; 

FILE *fjp, *fopenO; 

XawListRetumStruct *name=(XawListRenimStnict *)call_data; 
char file_name[STRLEN], *whole_frame; 
int frame, channel, i, x, y; 

Dprintf("VideoMacSave %s\n",name-> string); 

video =FindVideo(name- > string,globai- > videos); 

if (video- > ffles[0] = = *\0') strcpy(video- > fiies,name- > string); 

sprintf(file_name, " %s%s/ %s/%s%s\0",global- > home,IMAGE_DIR, video- > path, video- 
>files,".mac"); 

fp=fopen(file_name, "w"); 

whole_frame=(char *)MALLOC(video- > si2e[l]*video- > si2e[0]*3); 
for(frame-0;franie< video- >size[2];frame-l--f-) { 
int si2e= video- > size[0]*video- > size[l]; 
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GetFrame(video , frame) ; 

for(channel=0;chaimel < (video- > type= =M0N0?1 :3);channei + +) 
for(x = 0;x < video- > size[0] ;x -i- + ) 

for(y =0;y < video- > size[l] ;y -I- +) 

whole_frame[(x + video- > size[0] *y)*3 -l-chaimel] =itc(video- > data[channel] [frame] [Addre 
ss(video,chaimel,x,y)] > > video- > precision); 

fwrite(wliole_ftame, 1 ,3 *size,fp) ; 

FreeFrame(video,frame) ; 

} 

fclose(fp); 

XtFree( whole__f rame) ; 

} 

void VideoHexSave(w,closiire,call_<iata) 

Widget w; 

caddr_t closure, call__data; 

{ 

Video video; 
FILE *fp, *fopen(); 

XawListRetumStruct *name=(XawListRetumStiuct ♦)call_data; 
char file_name[STRLEN]; 
int frame, chamiel, i; 

Dprintf("VideoHexSave %s\n" .name- > string); 

video=FindVideo(name- > string.global- > videos); 

if (video- > files[0] = = '\0') strcpy(video- > files,name- > string); 

sprintf(file_name, " %s %s/%s/ %s%s\0" .global- > home .IMAGE_DIR, video- > path,video- 
> files, ".h"); 
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fp = fopen(fiIe_naine / w " ) ; 

for(frame=0;fTame < (video- > size[2] >2?2:video->size[2] { 
int size = video- > size[l]*video-> size[0] ; 

GetFraine( video , frame) ; 
fprintf(fip,"char 

%s%d[%d] = {\n\name- > string[strlen(iiame- > stiiig)-!] = = 'd'?"^ 
for(i=0;i < size;i -h +) 

fj3rintf(fp, "0x%02x, %c" .(video- > data[0] [frame] [i] > > video- > precision)^ 128,i%20= = 
19?'\n*:' '); 

fprintf(fp/'\n};\n"); 
FreeFrame(video,frame) ; 

} 

fclose(fp); 

} 

#defme AB_WIDTH 1440 
#defme AB_HHGHT 486 

void VideoAbekusSave(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

AbekusCtrl Ctrl = ( AbekusCtrl)closure ; 
FILE *fp, *fopeiiO; 

char fiIe_name[STRLEN], *data=(char 
*)MALLOC(AB_WIDTH*AB^HHGHT), zero=itc(0); 
int frame, chamieU i, x, y, length=0; 
Video vids[4]; 
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Dprintf("VideoAbekusSave\ii"); 
for(i=0;i<4;i++) 

if (Ctrl- > namesp] ! =NULL) { 

vi(is[i] =FindVideo(ctrl- > naines[i], global- > videos); 
length= length > vids[i]- > size[2]?length:vids[i]- > size[2] ; 
} else vids[i]=NULL; 
for(frame=0;frame<length;frame++) { 

spriiitf(file_name, " %d.yuv\0",frame-f- 1); 
ip = fopen(file_name , " w " ) ; 
for(i =0;i < 4;i-l- -i-) GetFrame(vids[i] .frame); 
for(y =0;y < AB_HHGHT;y-!- +) 

for(x===0;x<AB_WIDTH;x+-l-) { 
int 

i=(x < AB_WIDm'2?0: l)+(y < AB_HEIGHT/2?0:2), 

Y=y<AB_HHGHT/2?y:y-AB_HEIGHT/2, 
X = (X < AB_WIDTH/2?x:x-AB_WIDTH/2)/2 , 
chaimel=((x&l)= =1)?0:((X&1)= =0)?1:2; 

if (vids[i]- > type = =M0NO && channel! =0 1 1 
X> =vids[i]->size[0] 1 1 Y> =vids[i]->size[l]) data[x-l-y*AB_WIDTH]=zero; 

else 

data[x-f y*AB_WIDTH] = itc(vids[i]- > data[channel] [frame] [Address(vids[i] ,channel,X, Y)] 
> > vids[i]- > precision); 

} 

for(i=0;i<4;i-l-+){ 

FreeFrame(vids[i] .frame) ; 
EraseFrame(vids[i] .frame) ; 

} 

fwrite(data, 1 ,AB_WIDTH*AB_HEIGHT,fp); 
fclose(fp); 

} 

} 
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void VicieoDrop(w,closure,calI_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video *videos=&global-> videos, video; 
XawListRetumStiuct *name = (XawListRetiimStruct *)call_data; 
int channel, frame; 

Dprintf("VideoDrop %s\n", name- > string); 
video =FindVideo(name- > string,globaI- > videos); 

while (*videos! =video && * videos != NULL) videos=&((*videos)->next); 
if (*videos!=NULL) { 

♦videos = (*videos)- > next; 

for(channel =0;channel < (video- > type = =M0N0?1 :3);channel + +) 
if (video- > data[channel] ! =NULL) { 

for(frame=0;frame < video- > si2e[2];frame+ +) 
if (video- >data[channel] [frame] !=NULL) 
XtFree(video->data[channel][frame]); 

XtFree(video- > data[channel]); 

} 

XtFree( video); 

} 

} 

/* Obsolete 

void VideoDiff (w ,closure,call_data) 

Widget w; 

caddr_t closure, call^data; 



SUBSTITUTE SHEET (RULE 26) 



wo 94/23385 



PCT/GB94/00677 



- 383 - 

XawListRetumStruct *name=(XawListRetuniStruct *)call_data; 

Video src=FindVideo(name->string,globaI-> videos), dst=CopyHeader(src); 

int frame, channel, i; 

printf("VideoDiff %s\n",name-> string); 
sprintf(dst- > name, " %s.dif\0" ,src- > name); 
for(frame=0;frame<src->size[2];frame++) { 

GetFrame(src,frame); 

NewFrame(dst,ftame) ; 

for(channel=0;chamieI<(video->type= =M0N0?l:3);channel+ +) 
for(i =0;i < src- > si2e[l]*src- > size[0] ;i+ +) 

dst- > data[channel] [frame][i] =src- > data[channel] [frame] [i])-(frame= =0?0:src- > data[ch 
annel][frame-l][i]); 

SaveFrame(dst,frame) ; 

FreeFrame(dst,fr^e) ; 

if (frame >0) FreeFrame(src,frame-l); 

} 

FreeFrame(dst,src- > size[2]-l); 
dst- > next=global- > videos; 
global- > videos =dst; 

} 

*/ 

void VideoClean(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 



{ 

Video *videos=&globaI-> videos, video; 
int channel, frame; 
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Dprintf ( " VideoClean\n") ; 
while(*videos!=NULL) { 
video =* videos; 

if (False = == VideoHasFrame(video,globaI- > frames)) { 
Dprintf( "Erasing video: %s\n",video->name); 

for(channel =0;chaimel < (video- > type= =M0N0?1 :3);channel + +) 

if (video- >data[chaniieI]!=NULL) { 

for(frame = 0;frame < video- > size[2] ;frame 4- -h) 
if (video- > data[channell [frame] ! =NULL) 

XtFree(video- > dataf channel] [frame]); 

XtFree(video- > data[channel]) ; 

} 

*videos = video- > next; 
XtFree(video); 
} else videos =&(*videos)-> next; 

} 

} 

typedef struct { 

Frame fi^e; 

Xtlntervalld id; 

unsigned long interval; 

long msec, shown, average; 

Pixmap *movie; 

int frio, old_fno; 
} MovieArgRec, *MovieArg; 

void Projector(client_data, id) 

XtPointer client__data; 
Xdntervalld *id; 
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MovieArg movieArg = (Movie Arg)client_data; 

Display *dpy = XtDisplay (global- > toplevel) ; 

struct timeval tp; 

struct timezone tzp; 

long new__msec; 

int scm=XDefaultScreen(dpy); 



movieArg- > id =XtAppAddTimeOut(global- > app_con,movieArg- > interval,Projector,mo 
vieArg); 

gettiineofday(&tp,&tzp); 

new_insec=tp.tv_sec*l(XX)H-^.tv_usec/10(X); 

if (movieArg- > msec! =0) { 

movieArg- > average = (movieArg- > average*movieArg- > shown+new_msec-movieArg- 

> msec)/(movieArg- > shown+ 1); 

movieArg- > shown+ + ; 

} 

movieArg- > msec = new_msec; 

XCopyArea(dpy, movieArg- > movie[movieArg- > fho] ,XtWiiidow(movieArg- > frame- > i 
mage_widget),DefaultGC(dpy ,scm),0,0,movieArg- > frame- > video- > si2e[0],movieArg- 

> frame- > video- > size[l] ,0,0); 

movieArg- > frio =movieArg- > frio = =movieArg- > frame- > video- > size[2]-l?0:movieAr 
g->ftio+l; 

} 

void StopMovie(w,closure,call_data) 



Widget w; 
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cadclr_t closure, call_data; 
{ 

MovieArg movie Arg = (MovieArg)closure; 
Display *dpy = XtDisplay (global- > toplevel) ; 
int i; 
Arg args[l]; 

XiRemoveTimeOut(movieArg- > id); 

Dpriiitf("Movie showed %d frames at an average of %f 
fps\n" ,niovieArg- > shown, 1000.0/(float)niovieArg- > average); 

for(i =0;i < movieArg- > frame- > video- > size[2] ;i + +) 
XFreePixmap(dpy,movieArg- > movie[i]); 

XtFree(movieArg- > movie); 

XtSetArg(args[Oi,XtNbimiap,UpdateImage(movieArg- > frame)); 
XtSetValues(movieArg- > frame- > image_widget,args,ONE); 
XSynchromze(dpy , False) ; 

} 

#define MOVIE JCONS 1 

void Movie(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video video = ((Frame)closiu:e)- > video ; 

MovieArg movieArg = (Movie Arg)MALLOC(sizeof(MovieArgRec)) ; 
Widget shell =ShelIWidget("movie\XtParent(w),SW_over,NULL,NULL), 
form =FormatWidget("movie_fonn" , shell), 
widgets[MOVIE_ICONS] ; 
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Display *dpy = XtDisplay (global- > toplevel) ; 
Formltem itemsQ = { 

{"movie_siop", "stop" ,0,0,FW_icon,NULL}. 

}; 

XtCallbackRec callbacksD = { 

{StopMovie, (caddr_t)niovieArg} , 
{Free,(caddr_t)movieArg} , 
{Destroy , (caddr_t)shell} , 
{NULL,NULL}, 

}; 

int i; 

XGCValues values; 
GC gc; 

Dprintf("Movie\n"); 

FillFoiTn(form,MOVIEJCONS,itcms,widgets,callbacks); 
XtPopup(shell,XtGrabExclusive) ; 

values . foreground = 255 ; 
values .background =0; 

gc=XlGetGC(XtParent(w),GCForeground 1 GCBackground,i&values); 
movieArg" > frame = (Frame)closure; 

movieArg- > movie = (Pixmap *)MALLOC(video- > size[2] *si2eof(Pixmap)) ; 
movieArg- > old_fiio = movieArg- > frame- > frame; 
for(i =0;i< video- >si2e[2];i++) { 
char ftio[STRLEN]; 

sprintf(fiio, " %03d\0" ,i+ video- > start); 
movieArg- > frame- > frame=i; 
GetFrame(video, i) ; 

movieArg- > movie[i] =UpdateImage(movieArg- > frame); 
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XDrawImageString(dpy,movieArg- > mo vie[i],gc, video- > size[0]-50, 10,fiio,3); 

XCopyArea(dpy,movieArg- > movie [i],XtWindow(mo vie Arg- > frame- > image_widget),D 
efaultGC(dpy,0),0,0,video->size[0].video->si2e[l],0,0); 

movieArg- > frame- > frame =movieArg- > old_fno; 

FreeFrame( video, i) ; 

} 

XtDestroyGC(gc); 

movieArg- > fno=0; 

movieArg- > msec =0; 

movieArg- > shown =0; 

movieArg- > average =0; 

movieArg- > interval = 1000/video- > rate; 

movieArg- > id=XtAppAddTimeOut(globaI- > app_con,movieArg- > mterval,Projector,mo 
vieArg); 

XSy nchronize(dpy , True) ; 

} 

void Compare(w,closure,cail_data) 

Widget w; 

caddr_t closm^, call_data; 

{ 

XawListRerumStruct *name=(XawListRetumStruct *)call_data; 
Video src=(Video)closure, dst=FindVideo(name->string,global"> videos); 
int channels=src->type==MONO jj dst->type==M0N0?l:3, channel, 
values =0, x, y, 

frames =src- > size[2] > dst- > size[2]?dst- > size[2] :src- > size[2] , 

frame; 
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double mse; 

Message msg = NewMessage(NULL,400) ; 
XtCallbackRec calIbacksD = { 

{CloseMessage, (caddr_t)insg} , {NULL,NULL} , 

}; 

msg- > rows = frames > 5 ? 1 0 : 2 ^frames ; msg- > cols =40 ; 
if (global->batch==NULL) 
Message Window(FmciWidget( " frm^compare " , w) ,msg , " Compare " ,True,caIlbacks) ; 
for(frame=0;frame<frames;frame++) { 

Boolean srcp = src- > precision > dst- > precision; 

int err_sqr=0, 

precision = srcp?src- > precision-dst- > precision: dst- > precision-src- > precision; 

Mprintf(nisg," Compare: %s%03d and 
%s%03d\n" ,src- > name,src- > start+frame,dst- > name,dst- > start+frame); 
GetFrame(src,frame); 
GetFrame(dst,frame) ; 

for(channeI=0;channel<channels;channeH-+) { 

values -h = Size(src- > size[ 1] > dst- > size[l]?dst:src, channel, l)*Size(src- > si2e[0] > dst- > s 
ize[0]?dst:src,channel,0); 

for(y =0;y < Si2e(src- > si2e[l] > dst- > size[l]?dst:src,channel, l);y + +) 



for(x =0;x < Si2e(src- > size[0] > dst- > size[0]?dst:src,channei,0);x+ +) { 

int 

err= (src- > data[channel] [frame] [x +Size(src,clianneUO)*y] < < (srcp?0:precision))-(dst- > 
data[channel][frame][x+Size(dst,channel,0)*y] < <(srcp?precision:0)); 

err_sqr-f =err*err; 

} 
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} 

FreeFraine(src , frame) ; 

FreeFraine(dst, frame) ; 

mse = (doubIe)err_sqr/(double)( values) ; 

Mprintf(msg, "Error %d MSE %f PSNR 
% An " , err_sqr,mse , 10*Iog 1 0(pow((po w(2 . 0 , (double)(8 + (srcp?src - > precision: dst- > precis 
ion)))-l),2.0)/mse)); 

Mflush(msg); 

} 

} 

void BatchCompare(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

String name=(String)closure; 

closure =(caddr_t)FindVideo(name,global- > videos); 
Compare(w,closure,call_data); 

} 
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source/xwave.c 



^include " . ./include/xwave.h" 

#include < XI 1/Xresource.h > 

^include < XI l/Intrinsic.h > 

#include < XI 1/Quarks.h > 

exiera Palette ReOrderPalettesO; 

extern void NameButtonQ; 

extern void ImageNotifyO; 

extern void ParseQ; 



#defme IconPath "bitmaps " 

#defme IconFile "xwave.icons" 

#define CompressPath 

#define CompressExt ".compress" 

#defme PalettePath 

#define PaletteExt " .pal " 



Global global; 

String ChamielName[3][4] = { 

{ "GreyScale" ,NULL,NULL,NULL} , 
{"Red "/Green" /Blue "/Color"}, 

{ " Y-Lumunance " , "U-Chrome " , " V-Chrome " , " Color " } , 

}; 

#Gefine XtNdebug "debug" 
#defme XtNbatch "batch" 
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Static XiResource resourcesQ = { 

{XtNdebug, XtCBoolean, XtRBoolean, sizeof(Boolean), 
XtOffset(Global.debug), XtRString. "false"}, 
{XtNbaich, XtCFile. XtRString, sizeof(String), 
XtOffset(Global.batch), XtRString, NULL}, 

}; 

static XrmOptionDescRec optionsn={ 

{"-debug","*debug",XnnoptionNoArg,"true"}, 
{ "-batch" . "*batch" .XraiopiionSepArg.NULL} , 

}; 

static Boolean CvtStringToPixel20; 
#if defmed(__STDC_) 

extemalref XtConvertArgRec const colorConvertArgs[2]; 
#else 

extemalref XtConvertArgRec colorConvertArgs[2]; 
#endif 

static String fallback_resourcesD={ 

"*copy_video*Toggie*translations: ^override \\n <BtnlDown>,<BtnlUp>: 
set() notifyO", 

"*copy_video*copy*state: true", 

NULL, 

}; 

XtActionsRec actionTableQ = { 

{ "NameButton" ,NaineButton} , 

}; 

mam(argc , arg V , envp) 
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int argc; 

char *argyQ, *envpQ; 

{ 

void InitPixmapsO, InitActionsO, InitMainO, InitEnvQ, InitDitherQ, DispatchQ; 
GlobalRec globalrec; 

global = &globalrec; 
global- > videos = NULL; 
global- > frames = NULL; 
global- > points = NULL; 
IiiitEnv(envp); 

global- > toplevel =XtAppImtialize(&(global- > app_con), "xwave",options,XtNuinber(optio 
ns),&argc,argv,fallback_resources,NULL,ZERO); 

XtGetApplicatioiiResoiirces(gIobal- > toplevel,global,resources,XtNumber(resources),NUL 
L,ZERO); 

if (global- > batch! =NULL) { 

Parse(BATCH_DIR,global- > batch3ATCH__EXD; 

if (global- > batch Jist!=NULL) Dispatch(global->batchJist); 

} 

if (global- > batch= =NULL) { 

XtAppAddActions(global- > app_con,actionTable,XtNumber(actionTable)); 

XtSetTypeConverter(XtRString,XtRPixel,CvtStringToPixel2,colorConve^ 
(colorConvertArgs),XtCacheByDisplay,NULL); 

if (global- > debug) Dprintf("Xwave Debugging OutputVn"); 

InitVisualO; 

InitDitherQ; 

InitPixniaps(IconPathJconFile) ; 
Parse(PalettePath, "xwave" ,PaletteExt); 
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global- > paleaes=ReOrderPalettes(global- > palettes, global- > palettes); 

InitActions(globaI- > app_con); 

InitMainQ; 

XtRealizeWidget(global- > toplevel); 
XtAppMainLoopCglobal- > app_con); 

} 

} 

void InitEnv(envp) 
char *envpD; 

{ 

String home = NULL, xwave=NULL; 

Dprintf( "Initializing enviromentXn"); 
while(*envp!=NULL) { 

if ( !stmcmp(*envp, "HOME = " ,5)) home = (*envp) + 5 ; 

if(!stmcmp(*envp,"XWAVE=",6)) xwave=(*envp)4-6; 

envp++; 

} 

if (xwave ! = NULL) sprintf (global- > home, " % s/ " , xwave) ; 
else sprintf(global- > home, " %s/xwave/" ,home); 

} 

#defme HHGHT 14 
void InitPixmaps(path,file) 
char *file, *path; 
{ 
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HLE *fp, *fopenO; 
Icon icons; 
char pad[100]; 

Display *dpy =XtDisplay(global- > loplevel); 

inl i, j, sink, scm=XDefaultScreen(dpy), depth =DisplayPlanes(dpy,scm), 

bpl=(gIobal- > levels*depth+7)/8; 
char data[HEIGHT*bpl]; 
Xlmage 

♦image =XCreateImage(dpy .global- > visinfo- > visual,depth,ZPixmap,0,data,global- > leve 
ls,HHGHT,8,bpl); 



sprintf(pad,"%s%s/%s\0",global- > home,path,file); 
if (NULL == (fp=fopen(pad,"r"))) { 

Eprintf("Can't open file %s\n",pad); 

exitO; 

} 

fscanf(fp, " %d\n",4&global- > no_icons); 

global- > icons = (Icon)MALLOC((l +global- > no_icons)*sizeof(IconRec)) ; 
for(i=0;i< global- >no_icons;i++) { 

global- > icons[i].name=(Stmg)MALLOC(100); 

fscanf(fp," %s\n",global- > icons[i].name); 

sprintf(pad," %s%s/%s\0",global- > home,path, global- > icons[i].name); 
XReadBitmapFileC 

XtDisplay(global- > toplevel), 

XDefaultRootWindow(dpy ) , 

pad, 

&global- > icons[i] .width, 
&global- > icons[i] .height, 
&global- > icons[i] .pixmap, 
&sink, 
&sink 

); 
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} 

global- > icons[global- > no_icons) .iiaine=(String)MALLOC(100); 
strcpyCglobal- > icons[global- > nojconsj.name, "colors"); 
global- > icons[global- > no^icons] .width = global- > levels; 
global- > icons[global- > no_icons] .height=HEIGHT; 
for(i=0;i<global->levels;i+ +) 

for(j =0;j < HEIGHT;j + -f ) XPutPixeI(iinage.i j .i); 

global- > icons[global- > noJcom].pixmap=XCreatePixmap(dpy,XDefaultRootWmdow(dp 
y), global- > levels,HEIGHT,depth); 

XPutImage(dpy, global- > icons[global- > no_icons].pixmap,DefaultGC(dpy,scra),image,0,0 
,0,0,global- > levels,HHGHT); 

global" > no_icons -4- + ; 

XtFree(iinage); 

fclose(fp); 




if (toVal->addr != NULL) { 
if (toVal- > size < si2eof(type)) { 



\ 



\ 



toVal->si2e = sizeof(type); 



\ 



return False; \ 

}\ 

*(type*)(toVal->acidr) = (value); 

} \ 
else { \ 

static type static_val; \ 

siatic^vai = (value); \ 

toVal->addr = (XtPoiiiter)&static_vai; 

} \ 



\ 
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toVal->size = sizeof(type); \ 
return True; \ 



#define dist(colora,colorb) \ 

abs(coIora.red-colorb.red)+abs(colora.green-colorb. green) +abs(colora-blue-colorb.blue) 

static Boolean CvtStringToPixel2(dpy, args, num^args, fromVal, toVal, closure_ret) 
Display* dpy; 
XrmValuePtr args; 
Cardinal *num_args ; 
XnnValuePtr fromVal; 
XrmValuePtr toVal; 
XtPointer *closure_ret; 

{ 

String str = (String)fromVal->addr; 

XColor screenColor; 

XColor exactColor; 

Screen ^screen; 

Colormap colormap ; 

Status status; 

String paiams[l]; 

Cardinal nuinj)arams=l; 

Dprintf("Convert string to pixel 2\n"); 
if (*nuin_args ! = 2) 

XtAppErrorMsg(XtDisplayTo ApplicationContext(dpy) , " wrongParameters " , 
"cvtStringToPixer, 

"XtToolkitError", 
"String to pixel conversion needs screen and colormap arguments", 
(String *)NULL, (Cardinal *)NULL); 
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screen = *((Screen **) args[0].addr); 
colormap = *((Colormap *) args[l].addr); 



if (!sm:mp(str,XtDefaultBackground)) { 
*closure_ret = False; 
done(Pixel,WhitePixelOfScreen(screen)); 

} 

if (!strcmp(str,XtDefaultForeground)) { 
*closure_ret = False; 
done(Pixel,BIackPixelOfScreen(screen)); 

} 

params[01=str; 

if (0==XParseColor(DisplayOfScreen(screen),colonnap,str,&screenColor)) { 

XtAppWaniingMsg(XtDisplayToApplicatioiiContext(dpy), "noColormap" , 
"cvtStringToPixer, 

"XtToolkitEiror", "Cannot parse color: V%sV\ 
params , &niim_params) ; 

return False; 
} else { 

if (0==XAllocColor(DisplayOfScreen(screen),colormap,&screenColor)) { 
int i, delta, closest=0; 
XColor colors[global- > levels] ; 

for(i=0;i <global- > levels;i+ +) colors[i] .pixel=i; 



XQueryColors(DisplayOfScreen(screen),colonnap,colors,global- > levels); 
delta = dist(screenColor ,colors[0]) ; 
for(i=l;i< global- >levels;i-*-+) { 

int delta_new =dist(screenColor,colors[i]); 

if (delta_new < delta) { 
delta =deita new; 
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closest =i; 

} 

} 

Dprintf( "Closest color to %s is pixel %d red %d green %d blue 
%d\n\str,coiors[closest] .pixeI,colors[closest] .red,colors[closest] .green,colors[closest] .blue 

); 

*closure_ret = (char*)True; 
done(PixeU closest); 
} else { 

*clQSure_ret = (chax*)True; 
done(Pixel, screenColor.pixel); 

} 

} 

} 

void Dispatch(list) 



Batch list; 



if (list- > next! = NULL) Dispatch(Iist->next); 
(list- > proc)(NULL,list- > closurejist- > call_data) ; 
if (list- > closure! =NULL) XtFree(list-> closure); 
if (list->call_data!=NULL) XtFree(list->call_data); 
XtFree(list); 



void BatchCtrl(w,closure,call_data) 



Widget 
caddr t 



w; 

closure, call data; 
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{ 

Dprmtf("BatchCtrl\n"); 
global- > batch =(String)closure; 

} 

void UnixShell( w , closure , call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

if (-1 = =Fork((char ♦*)cIosure)) Eprintf(" Unable to fork\n"); 

} 

void InitDitherO 
{ 

int i,j, k, 1, 

dm4[41[4] = { 

0, 8, 2. 10, 
12, 4, 14, 6, 
3, 11. 1, 9. 
15, 7, 13, 5 

}; 

for(i=0;i<4;i++) 

forO=0;j<4;j++) 

for(k=0;k<4;k++) 

for(l=0;l<4;l-f-+) 

global- >dither[4*k+il[4*l+j]=(dm4[i]|j] < <4)+dm4[kl[l]; 

} 
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source/Copy^h 



typedef struct { 
Video video; 

char name[STRLEN], src_name[STRLEN]; 
int UVsainple[2]; 
int mode; 
Widget radioGroup; 
} CcpyCtrlRec, *CopyCtrl; 
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source/Gram. y 

%{ 
/* 

* Grammar for files: .elo 
*/ 

#include " . ./include/xwave. h" 
#inciude "Klics.h" 
#include " Transform, h " 
#mclude Xopy.h" 
#include "Video.h" 
extern void VideoLoadQ; 
extern void VideoSaveQ; 
extern void VideoDropO; 
extern void ImportKlicsQ; 
extern void VideoAbekusSaveQ; 
extern void UnixShellQ; 
extern void BatchCompCtrlQ; 
extern void BatchTransCtrlQ; 
extern void BatchCopyCtrlQ; 
extern void BatchCompareQ; 
extern void BatchCtrlQ; 
extern CompCtrl InitCompCtrlO; 
extern Copy Ctrl InitCopyCtrlQ; 
extern TransCtrl InitTransCtrlQ; 

static char *ptr; 
void NewBatchQ; 



%} 
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% union 

{ 

double fnum; 
ini num; 
char *ptr; 
Boolean bool; 

}; 



%token SIZE TRANSFORM TRANSFORM_NO^fE TRANSFORM_WAVE PATH 
%token FILE_PAL PALETTE RANGE LINE 

%token FILE_VID TYPE FORMAT_MONO FORMAT_RGB FORMAT_YUV 
RATE DISK GAMMA PATH FILES START END LEN DIM HEADER OFFSETS 
NEGATIVE PREQSION 

%token FILE_BAT LOAD SAVE SAVE_ABEKUS COMPARE DROP 

COMPRESS VIDEO_NAME STATS_NAME BIN_NAME 

%token STILL_MODE VIDEO_MODE AUTO_Q QUANT_CONST 

THRESH_CONST BASE_FACTOR DIAG_FACTOR CHROME_FACTOR 

%token DECISION DEC_MAX DEC_SIGABS DEC_SIGSQR FEEDBACK 

HLTER FLT_NONE FLT_EXP CMP_CONST SPACE LEFT_BRACE RIGHT_BRACE 

DIRECTION 

%token FPS BITRATE BUFFER XWAVE SHELL IMPORT_KUCS 
%token COPY DIRECT_COPY DIFF LPF_WIPE LPF_ONLY RGB_YUV 
% token <num> NUMBER 
%token <ptr> STRING 
%token <fiimn> FNUMBER 
% token <booI> BOOLEAN 

%type <num> number video_type decision filter 

%type <ptr> string 

%type <&ium> fnumber 

%type <bool> boolean 
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%stan wait 
%% 

wait : 

I pallid pal^desc 
I video_id video_desc 
I bat_id bat_desc bat_end; 

paljd : HLE^PAL { 

Dprintf("Grain: palette file %s\n",global->parse_fiie); 

}; 

video Jd : FILE^VID { 

Dprintf("Gram: video file %s\n",global->parse_file); 
global- > videos- > start = 1 ; 
global- > videos- > si2e[2] = 1 ; 

}; 

bat id : FILE BAT { 

Dprintf("Gram: batch file %s\n" .global- >parse_file); 

}: 



pal_desc 



pai_desc palette LEFT_BRACE mappings RIGHT_BRACE; 



palette : PALETTE string { 

Palette pal = (Palette)MALLOC(sizeof (PaletteRec)) ; 



DprintfC'Gram: palette %s\n",$2); 
strcpyCpal- > name, $2); 
pal- > mappings = NULL; 
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pal- > next = global- > palenes ; 
global- > palettes =pal; 
global- > no_pals + + ; 



}; 



mappings mappmg; 



mapping : RANGE number number LINE number number { 

Map map = (Map)MALLOC(sizeof (MapRec)) ; 



Dprintf("Gram: Range %d to %d m=%d c=%d\n",$2,$3,$5,$6); 

map->start=$2; 

map- > finish =$3; 

map->m=$5; 

map->c=$6; 

map- > next=global- > palettes- > mappings; 
global- > palettes- > mappings=map; 



video^desc : video_defs { 

if (global- > videos- > size[0] = =0 && 
global- > videos- >size[l] = =0) { 

global- > videos- > size[0] = global- > videos- > cols; 
global- > videos- > size[l] =globaI- > videos- > rows; 

} 

}; 



video_defs : 

I video^defs video_def; 
video_def : PATH siring { 
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Dprintf("Video path %s\n",$2); 
strcpy (global- > videos- > path, $2); 

} 

I FILES string { 

Dprintf("Frames stored in %s\n",$2); 
strcpy(global- > videos- > files,$2); 

} 

I TYPE video_type { 

String typesn={"Mono","RGB","YUV''}; 

Dprintf("Video type: %s\n",types[$2]); 
global- > videos- > type=(VideoFonnat)$2; 

} 

I RATE number { 

Dprintff "Video rate %d fps\n",$2); 
global- > videos- > rate = $2; 

} 

I DISK { 

Dprintf("Fiames on disk\n"); 
global- > videos- > disk=True; 

} 

I GAMMA { 

DprintfCGamma correctedXn"); 
global- > videos- > gamma =True; 

} 

I NEGATIVE { 

DprintfCNegative video\n"); 
global- > videos- > negative = True; 

} 

i TRANSFORM video_transform 
[ START number { 

DprintfCVideo start %03d\n",S2); 
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global- > videos- > stan = $2 ; 

} 

I END number { 

Dprinif(" Video end %03d\n",$2); 

global- > videos- > size[2] = $2-globaI- > videos- > stan -t- 1 ; " 

} 

I LEN number { 

DprintfC'Video frames %d\n",$2); 
global- > videos- > size[2] =$2; 

} 

j DIM number number { 

DprintfC" Video dimensions %d %d\n",$2,$3); 
global- > videos- > cols = $2; 
global- > videos- > rows = $3 ; 

} 

I HEADER number { 

DprintfC'Video header size %d\n",$2); 
global- > videos- > offset=$2; 

} 

I OFFSETS number number { 

DprintfC'Video offsets %d %d\n",$2,$3); 
global- > videos- > x_offset= $2; 
global- > videos- > y_offset = $3 ; 

} 

I SIZE number number { 

DprintfC'Video size %d %d\n",$2,$3); 
global- > videos- > size[0] =$2; 
global- > videos- > size[l] = $3 ; 

} 

I PRECISION number { 

DprintfC'Video precision %d bits\n",8+$2); 
global- > videos- > precision = $2 ; 
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}: 

video_type : FORMAT_MONO { $S=(int)MONO; } 
I FORMAT_RGB { $S=(int)RGB; } 
I FORMAT_YUV number number { $$=(int)YUV; 

global- > videos- >UVsampIe[0] =$2; global- > videos- >UVsample[l] =$3; }; 

video_transform : TRANSFORM_NONE { 

global- > videos- > trans, type - TRANS_None; 

} 

I TRANSFORM^WAVE number number boolean { 
Dprintf( "Video wavelet tranformed %d %d 

%s\n",$2,$3,$4?"Tnie":"FaIse"); 

global- > videos- > trans, type =TRANS_Wave 
global- > videos- > trans. wavelet.space[0i =$2 
global- > videos- > trans, wavelet. space[ 1] = $3 
global- > videos- > trans, wavelet, dim =$4; 

}; 

bat_end : 

I XWAVE { 

Dprintf("Gram: XWAVBn"); 
NewBatch(BatchCtrl,(caddr_t)NULL,NULL); 

}; 

bat_desc : bat_cmds { 

Dprintf("Gram: End of batch file\n"); 

}; 



bat cmds 



bat_cmds bat_cmd; 



wo 94/23385 



PCT/GB94/00677 



409 



bat_crad : simple_cmci 

I complex_cmd 



simple_cmd : LOAD string { 

XawListRetumStruct *list_remrn = (XawListRetumStmct 
*)MALLOC(sizeof(XawListRetumStruct)); 



DprintfC'Gram: LOAD %s\n",$2); 
list_remrn- > string=$2; 

NewBatch(VideoLoad,NULL,(caddr_t)list_retum); 

} 

I SAVE string { 

XawListRetumStruct '''list_retuin= (XawListRetumStruct 
♦)MALLOC(sizeof(XawListRetumSd:uct)); 

Dprintf("Gram: SAVE %s\n",$2); 
list_retum- > string = $2 ; 

NewBatch(VideoSave .NULL, (caddr_t)list_rettim) ; 

} 

I SAVE_ABEKUS string string string string { 
AbekusCtrl 

ctrl=(AbekusCtrl)MALLOC(sizeof(AbekusCtrlRec)); 



Dprintf("Gram: SAVE^ABEKUS %s %s %s 

%s\n",$2,$3,$4.$5); 

strcpy(ctrl- > nanies[0] ,$2); 
strcpy(ctrl->names[l],$3); 
strcpy(ctrl- > names[2] ,$4); 
strcpy(ctrl- > names[3] ,$5); 
NewBatch(VideoAbelcusSave,(caddr_t)ctrl,NULL); 

} 
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j COMPARE string siring { 

XawListRemrnScruct *list_return = (XawListReturnSmict 
*)MALLOC(sizeof(XawListRetumStruct)) ; 

Dprintf("Grani: COMPARE %s with %s\n",$2,S3); 
list_retum- > string = $2 ; 

NewBatch(BatchCompare,(caddr_t)$3,(caddr_t)lisi_remm); 

} 

I DROP string { 

XawListRetumStruci *list_retum=(XawListRetumStruct 

*)MALLOC(sizeof(XawListReturnStruct)): 

Dprintf("Gram: DROP %s\n".$2); 
list_retum- > string =$2; 

NewBatch(VideoDrop,NULL,(caddr_t)list_remm); 

} 

I IMPORT_mCS string { 

XawListRetumStiuct *list_retum = (XawListRenimStmct 
*)MALLOC(sizeof(XawListRemmStruct)); 



Dprintf("Gram: IMPORT_KUCS %s\n",$2); 
list_retum- > string = $2 ; 

NewBatch(ImportKlics,NULL, (caddr_t)list_retuni) ; 

} 

I SHELL string { 

char **argv, *str=$2; 

int c, argc=l, len=strlen(str); 

Dprintf("Shell %s\n",str); 
for(c=0;c<len;c++) if (str[c] = = ' ') { 

str[c] = '\0'; 

argc ++; 
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} 



argv=(char **)MALLOC((argc + l)*sizeof(char *)); 
argc=0; 

for(c=0;c < leii;c+ = 1 +strlen(str+c)) { 
argv[argc]=(char 
*)MALLOC((strlen(sir+c) + l)*sizeof(char)); 

strqpy(argv[argc] ,str+c) ; 
argc++: 

} 

argv[argc] =NULL; 

NewBatch(UnixShelU(caddr_t)argv,NULL); 

}: 

compIex_cmd : coiiq>ress LEFT_BRACE comp_args RIGHT_BRACE 

j transform LEFT_BRACE traiis_args RIGHT_BRACE 
I copy copy_arg; 

compress : COMPRESS string { 

CompCtrl ctrl=InitConipCtrl($2); 



Dprintf("Gram: COMPRESS\n"); 
NewBatch(BatchCompCtrl,(caddr_t)ctrl,NULL); 



}; 



transform : TRANSFORM string { 

TransCtrl ctrl=InitTransCtrl($2); 



Dprintf("Gram: TRANSFORMVn"); 
NewBatch(BatchTransCtrl,(caddr_t)ctrl,NULL); 



}; 



copy 



: COPY string string { 
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CopyCtrl ctrl=InitCopyCtrl(S2); 
DprintfC'Gram: Copy\n"); 
strcpy(ctrl- > name,$3) ; 

NewBatch(BaichCopy Ctrl . (caddr_i)ctrl , NULL) ; 

}; 

comp_args : 

I comp_args comp_arg; 

trans_args : 

I trans_args trans_arg; 



copy_arg : DIRECT_COPY number number { 

Dprintf("Gram: Direct Copy (sample %d %d)\n",$2,$3); 
((CopyCtrl)global- > batchjist- > closure)- > mode == 1 ; 

((CopyCtrl)global- > batchjist- > closure)- > UVsample[0] =$2; 

((Copy Ctrl)global- > batch_list- > closure)- > UVsample[ 1 ] = $3 ; 
} 

I DIFF{ 

DprintfCGram: Differance Copy\n"); 
((CopyCtrl)global- > batchjist- > closure)- > mode = 2; 

} 

j LPF_WIPE { 

Dprintf("Gram: LPF zero\n"); 

((CopyCtrl)global- > batchjist- > closure)- > mode = 3 ; 

} 

I LPF_ONLY { 

DprintfC'Gram: LPF onIy\n"); 

((CopyCtrl)global- > batch_list- > closure)- > mode =4; 

} 
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I RGB_YUV { 

Dprintf("Gram: RGB/YUV\n"); 

((CopyCtrl)global- > batch_list- > closure)- > mode =5; 

} 

I GAMMA { 

DprintfC'Gram: Gamma convert\n"); 
((CopyCtrl)global- > batchjist- > closure)- > mode = 6 ; 

}; 

comp_arg : VIDEO_NAME string { 

DprintfC'Gram: Compress name %s\d",$2); 

strcpy(((CompCtrl)global- > batchjist- > closure)- > name,$2); 
} 

I STATS_NAME string { 

DprintfC'Gram: Stats name %s\n",$2); 

strcpy(((CompCtrl)global- > batch_list- > closure)- > stats_name,$2); 

((CompCtrl)global- > batchjist- > closure)- > stats_switch=True; 
} 

I BIN_NAME string { 

DprintfC'Gram: Bin name %s\n",$2); 

strcpy(((CompCtrl)global- >batch_list- > closure)- > bin_name,$2); 

((CompCtrl)global- > batchjist- > closure)- > bin_switch=True; 
} 

I STILL_MODE { 

DprintfC'Gram: Still\n"); 

((CompCtrl)global- > batchjist- > closure)- > stillvid=True; 

} 
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I VIDEO MODE { 

Dprmtf("Grain: VideoVn"); 

((CompCtrl)global- > batch_list- > closure)- > stillvid = False; 

} 

I AUTO_Q boolean { 

Dprintf("Grain: Auto_q %s\n",$2?"True":"False"); 
((CoinpCtrl)global- > batchlist- > closure)- > autoq =$2; 

} 

I QUANT_CONST fhumber { 

DpiintfC'Grain: Quant const %f\n",$2); 

((CompCtrl)global- > batchjist- > closure)- > quant_const=$2; 
} 

I TEJRESH_CONST fmimber { 

DprintfCGram: Thresh const %f\n",$2); 

((CompCtrl)global- > batchjist- > closure)- > thresh_const=$2; 
} 

I BASE_FACTOR number ftiumber { 

Dprintf("Gram: Base factor oct %d=%f\n",$2,$3); 



((ConipCtrl)global- > batchjist- > closure)- > base__factors[$2] = $3 ; 
} 

i DIAG_FACTOR ftiumber { 

Dprintf("Gram: Diag factor %f\n",$2); 

((CompCtrl)global- > batchjist- > closure)- > diag Jactor = $2; 

} 

I CHROME_FACTOR ftiumber { 

Dprintf("Gram: Chrome factor %f\n",$2); 

((CompCtrl)global- > batchjist- > closure)- > chrome Jactor = $2; 
} 
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I DECISION decision { 

Dprintf("Gram: Decision changedVn"); 
((CompCtrl)global- > batchjist- > closiue)- > decide = $2 ; 

} 

i FEEDBACK number { 

((CompCtrl)global- > batchjist- > closure)- > feedback = $2; 
((CompCtrl)global- > batchjist- >closure)- > auto_q=True; 

} 

I FILTER filter { 

String filters[21={"None","Exp"}; 
Dprinlf("Grain: Filter %s\n",filters[$21); 
((CompCtrl)global- > batchjist- > closure)- > filter=$2; 

} 

I CMP_CONST fnumber { 

DprintfCGram: Comparison %f\n",$2); 
((CompCtrl)global- > batchjist- > closure)- > cmp_const = $2 ; 

} 

I FPS fnumber { 

Dprintf("Gram: Frame Rate %f\n",$2); 
((CompCtrl)global- > batchjist- > closure)- > fps =$2; 

} 

I BITRATE number { 

Dprintf("Gram: %dx64k/s\n",$2); 

((CompCtrl)global- > batchjist- > closure)- > bitrate = $2; 

} 

I BUFFER { 

DprintfCGram: Buffer on\n"); 

((CompCtrl)global- > batchjist- > closure)- > buf_switch=True; 

}; 



decision : DEC_MAX{ $$ = 0; } 
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I DEC_SIGABS { $S = 1; } 
I DEC_SIGSQR { $$ = 2; }; 

filter : FLT_NONE { $S = 0; } 

I FLT_EXP { $$ = 1, }; 

trans_arg : VIDEO_NAME string { 

Dprintf("Gram: Transform name %s\n",$2); 

strcpy(((TransCtrl)gIobal- > batchjist- > closure)- > name,$2); 
} 

i DIRECTION boolean { 

Dprintf("Gram: Direction %s\n",$2?"True":"Faise"); 
((TransCtrl)global- > batchjist- > closure)- > dim= $2; 

} 

I SPACE number number { 

Dprintf("Gram: Space %d %d\n",$2,$3); 
((TransCtrl)global- > batchjist- > closure)- > space[0] =$2; 
((TransCtrl)global- > batchjist- > closure)- > space[l] = $3 ; 

} 

I PREaSION number { 

Dprintf("Gram: Precision %d bits\n",8-H$2); 
((TransCtrl)global- > batchjist- > closure)- > precision = $2; 

}: 

boolean : BOOLEAN {$$ = $!;}; 

string : STRING { 

pa- = (char *)malloc(strlen($l)+l); 
strcpy(ptr,H-$l); 
ptr[strlen(ptr)-l] = '\0' ; 
$$ = ptr; 
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}: 

fhumber : FNUMBER { $$ = $1; }; 
number : NUMBER { $$ = $1; }; 

%7o 

yyerror(s) char *s; { 

EprintfC'Gram: error %s\n",s); 
exit(3); 

} 

void NewBatch(proc,closure,call_data) 
Proc proc; 

caddr^t closure, call_data; 
{ 

Batch bat=(Batch)MALLOC(sizeof(BatchRec)); 

bat- > proc =proc; 
bat- > closure=closure; 
bat- > call_data=calljiata; 
bat- > next=global- > batch Jist; 
global- > batch_list=bat; 

} 
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source/KIics.h 



/* Block size - no not change */ 
#defme BLOCK 2 

typedef int Block[BLOCK] [BLOCK]; /* small block */ 
/* tokens ♦/ 

#defme TOKENS 15 

#defme ZERO_STILL 0 
#define NON_ZERO_STILL 1 
#defme BLOCK_SAME 2 
#define ZERO_VID 3 
#defme BLOCK_CHANGE 4 
^define LOCAL_ZERO 5 
#define LOCAL_NON_ZERO 6 
#defme CHANNEL_ZERO 7 
#defme CHANNEL_NON_ZERO 8 
#defme OCT_ZERO 9 
#defme OCT_NON_ZERO 10 
#define LPF_ZERO 11 
#defme LPF_NON_ZERO 12 
#define LPF_LOC_ZERO 13 
#defme LPF_LOC_NON_ZERO 14 

static int token_bits[TOKENS] 
={1,1,1,2,2.1,1,1,1,1,1,1,1.1,1}; 

static unsigned char token_codes[TOKENS] ={0,1,0,1,3,0,1,0,1,0,1,0,1,0,1}; 
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/* decision algorithms */ 
#derme MAXIMUM 0 
#defme SIGABS 1 
#define SIGSQR 2 

/* compression modes */ 
#defme STILL 0 
#defme SEND 1 
#defme VOID 2 
#defme STOP 3 

/* LookAhead histogram */ 
#define fflSTO 400 
^define HISTO_DELTA 20.0 
#defme HISTO_BITS 9 

^include "../include/Bits.h" 

typedef struct { 
Video src, dst; 

Boolean stillyid, stats_switch, bin_switch, auto_q, buf_switch; 
double quant_const, thiesh_const, cmp_const, fps, 

base_factors[5], diag_factor, chrome_factor; 
int bitiate, feedback, decide, filter; 

char name[STRLEN], stats_name[STRLEN], bin_name[STRLEN], 
src_name[STRLEN] ; 

Bits bfp; 
} CompCtrlRec, ♦CompCtrl; 

typedef struct { 

Boolean stillvid, auto_q, buf_switch; 

double quant_const, thresh_const, cmp_const, fps, 
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base_f actors [5], diag_factor, chroine_factor; 

int decide; 
VideoFonnat type; 
Boolean disk, gamma; 
int rate, start, size[3], UVsample[2]; 
VideoTrans trans; 
int precision; 
} KlicsHeaderRec, *KlicsHeader; 
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source/KIicsSA.h 



^include <stdio.h> 
#include "Bits.h" 



#defme negif(bool, value) ((bool)?-(value): (value)) 
extern Bits bopenO; 

extern void bcloseQ, breadO, bwriteQ, bflushQ; 

/* Stand Alone definitions to replace VideoRec & CompCtrl assumes: 

* video- > type == YUV; 

* video- >UVsampleD = {1,1}; 

* video- >trans.wavelet.spaceD = {3,2}; 

* ctrl->bin_switch == True; 
*/ 



#define SA_WIDTH 352 

#defme SA_HEIGHT 288 

#defme SA_PRECISION 2 

static double base_factors[5] ={1.0,0.32,0.16,0.16,0.16}; 

#defme diag_factor 1.4142136 
M&fme chrome_factor 2.0 
#defme thresh_const 0.6 

#define cmp_const 0.9 

/* Block size - no not change */ 
#defme BLOCK 2 



typedef int Block[BLOCK3[BLOCK]; /* small block */ 



QiiQCTmixr cucrr fOM» c 
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/♦ tokens */ 

#defme TOKENS 15 

#define ZERO SULL 0 
#defme NON_ZERO_STILL 1 
#defme BLOCK_SAME 2 
#defme ZERO_VID 3 
#defme BLOCK_CHANGE 4 
#defme LOCAL_ZERO 5 
#defme LOCAL_NON_ZERO 6 
#defme CHANNEL_ZERO 7 
#defme CHANNEL_NON_ZERO 8 
#defme OCT_ZERO 9 
#defme OCT_NON_ZERO 10 
#defme LPF_ZERO 11 
#defme LPF_NON_ZERO 12 
#define LPF_LOC_ZERO 13 
#defme LPF_LOC_NON_ZERO 14 

static int token_bits [TOKENS] 

= {1,14.2.2,1,1.1,1.1,1,1.1,14}; 

static unsigned char token_codes[TOKENS] ={0,1,0.1.3,0,1,0,1,0,1,0,1,0,1}; 

/♦ decision algorithms */ 
#defme MAXIMUM 0 
i^defme SIGABS 1 
#defme SIGSQR 2 

/* compression modes */ 
#defme STILL 0 
#defme SEND 1 
#defme VOID 2 
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#defme STOP 3 

/* LookAhead histogram */ 
#defme fflSTO 400 
#defme fflSTO_DELTA 20.0 
#defme HISTO_BITS 9 
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source/Lex.l 



%{ 



/* 

* Lex driver for input files: .pal .vid .bat 
*/ 



^include 
^include 
extern int 



" • . /include/xwave . h " 

".,/include/Gram.h" 

ParselnputO; 



#undef 
#undef 
#undef 
#undef 
#define 
#define 
^define 
#define 



uiqnit 

input 

output 

feof 

unput(c) 

inputO 

output(c) 

feofO 



ungetc(c,global- > parse_fp) 

ParseInput(global- > parse_fp) 
putchar(c) 
(1) 



%} 



number -?[0-93+ 
fhumber -?[0-9] + ".10-9] + 
string \"(r"]I\\.)*\" 

%start WAIT MAP VTOEO BATCH BATCH_TRANS BATCH_COMP 
%n 2000 
%p4000 
%e 2000 
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%% 



7*" { char c='\0*; 



while(c!=7*) { 

while (c! = '*') c=input(); 
whUe (c= = '*')c=inputO; 

} 



\.pal { BEGIN MAP; Dprmtf("Lex: Reading palette file\n"); reium(FILE_.PAL); } 
\.vid { BEGIN VIDEO; Dprintf("Lex: Reading video file\n"); retuin(FILE_VID); } 
\.bat { BEGIN BATCH; Dprintf("Lex: Reading batch fileNn"); retuni(FILE_BAT); } 



{number} 

{string} 

{dumber} 



{ (void)sscanf(yytext, "%d", &yylval.num); renini(NUMBER); } 

{ yylval.ptr = (char *)yytext; remm(STRING); } 

{ (void)sscanf(yytext, "%ir, &yylval.foiim); retuin(FNUMBER); } 



< MAP > Palette 

<MAP>\{ 

<MAP>\} 

<MAP>Range 

<MAP>Line 



{ remm(PALETTE); } 

{ remm(LEFT_BRACE); } 
{ Tetum(RIGHT_BRACE); } 
{ retum(RANGE); } 
{ rettundJNE); } 



< VIDEO Type 

< VIDEO > MONO 

< VIDEO > RGB 
<VIDEO>YUV 

< VIDEO > Rate 

< VIDEO > Disk 



{ retum(TYPE); } 

{ retum(FORMAT_MONO); } 

{ remra(FORMAT_RGB); } 

{ retum(FORMAT_YUV); } 

{ retum(RATE); } 

{ retum(DISK); } 



< VIDEO > Gamma { renim(GAMMA); } 

< VIDEO > Negative { retum(NEGATIVE); } 
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< VIDEO > Path { retum(P ATH) ; } 

< VIDEO >FUes { retuni(FILES); } 

< VIDEO Transform { remm(TRANSFORM); } 

< VIDEO > None { remm(TRANSFORM_NONE) ; } 

< VIDEO > Wavelet { retum(TRANSFORM_WAVE); } 

< VIDEO > Start { remm(START) ; } 

< VIDEO > End { retura(END); } 

< VIDEO > Length { retum(LEN); } 

< VIDEO > Dimensions { retuni(DIM); } 

< VIDEO > Header { remm(HEADER) ; } 

< VIDEO > Offsets { retum(OFFSETS); } 



< VIDEO > Size 

< VIDEO > Precision 

< VIDEO > Yes 
<VIDEO>No 



{ retum(SIZE); } 

{ retiim(PRECISION); } 

{ yylvaI.bool=Tnie; remm(BOOLEAN); } 
{ yylval.booI=False; retum(BOOLEAN); } 



< BATCH > Load 

< BATCH > Save 

< BATCH > SaveAbekus 

< BATCH > Compare 

< BATCH > Drop 

< BATCH > ImportKUCS 

< BATCH > Transform 

< BATCH > Compress 

< BATCH >Xwave 

< BATCH >SheU 

< BATCH > Copy 

< BATCH > Direct 

< BATCH >Di£f 

< BATCH >LPFzero 

< BATCH >LPFonIy 

< BATCH > RGB- YUV 



{ renim(LOAD); } 

{ retum(SAVE); } 
{ renim(SAVE_ABEKUS); } 

{ remm(COMPARE); } 

{ remm(DROP); } 
{ retum(IMPORT_mCS); } 
{ BEGIN BATCH_TRANS; retum(TRANSFORM); } 

{ BEGIN BATCH_COMP; retum(C6MPRESS); } 
{ retum(XWAVE); } 
{ remm(SHELL); } 

{ retum(COPY); } 
{ remm(DIRECT_COPY); } 

{ retum(DIFF); } 

{ retum(LPF_WIPE); } 

{ remm(LPF_ONLY); } 

{ retum(RGB_YUV); } 
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< BATCH > Gamma { remm(GAMMA); } 



< BATCH_COMP > VideoName 

< BATCH_COMP > Stats 

< BATCH_COMP > Binary 
<BATCH_COMP>Yes 
<BATCH_COMP>No 
<BATCH_COMP>Stm 

< BATCH_COMP > Video 

< B ATCH_COMP > AutoQuant 

< BATCH_COMP> QuantConst 

< BATCH_COMP > ThreshConst 

< B ATCH_COMP > BaseFactor 

< BATCHCOMP > DiagFactor 

< BATCH_COMP > ChromeFactor 

< BATCH_COMP> Decision 

< BATCH_COMP> Feedback 

< B ATCH_COMP > Maximum 

< BATCH_COMP > SigmaAbs 

< BATCH_COMP > SigmaSqr 

< BATCH_COMP > FUter 

< BATCH_COMP > None 
<BATCH_COMP>Exp 

< BATCH_COMP > CmpConst 

< BATCH_COMP > FiameRate 

< BATCH^COMP > Bitrate 

< BATCH_COMP > Buffer 
<BATCH_COMP>\{ 
<BATCH_COMP>\} 
reium(RIGHT_BRACE); } 



retum(VIDEO_NAME); } 

retura(STATS_NAME); } 

retum(BIN_NAME); } 

.{ yylval.bool=True; retum(BOOLEAN); } 
{ yylval.booI=False; retum(BOOLEAN); } 

retum(STILL_MODE); } 

retum(VIDEO_MODE); } 

retura(AUTO_Q); } 

retum(QUANT_CONST); } 

retum(THRESH_CONST); } 

retum(BASE_FACTOR); } 

retum(DIAG_FACTOR); } 

retum(CHROME_FACTOR); } 
; remm(DECISION); } 
[ retom(FEEDBACK); } 

{ retum(DEC_MAX); } 
[ remm(DEC_SIGABS); } 
[ retum(DEC_SIGSQR); } 
[ renim(FILTER): } 
[ retum(FLT_NONE); } 

{ retum(FLT_EXP); } 
[ retum(CMP_CONST); } 
{ retum(FPS); } 
{ retumOBlTRATE); } 
{ retum(BUFFER); } 

{ retum(LEFT_^BRACE); } 
{ END; BEGIN BATCH; 



< BATCH_TRANS > VideoName { remm(VIDEO_NAME) ; } 
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<BATCH_TRANS> Direction { retuni(DIRECTION); } 
<BATCH_TRANS> Space { remm(SPACE); } 
<BATCH_TRANS> Precision { retum(PRECISION); } 
< BATCH_TRANS > Yes 
<BATCH_TRANS>No 
<BATCH_TRANS>\{ 
<BATCH_TRANS>\} 



{ yylval.bool=True; remni(BOOLEAN); } 

{ yylval.bool=False; retum(BOOLEAN); } 
{ retum(LEFT_BRACE); } 
{ END; BEGIN BATCH: retum(RIGHT_BRACE); } 



[. Vt\n] { ; } 

%% 

yywrapO { remm(l); } 
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souTce/Transform.h 



typedef struct { 
Video src; 

char naine[STRLEN], src_nanie[STRLE>ri; 
int space[2], precision; 
Boolean dim; 
} TransCtrlRec, *TransCtrl; 
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soiirceA'^ideo.h 



typedef struct { 

char names[4][STRLEN]; 
} AbekusCtrlRec, *AbekusCtrl; 
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source/makefile 



# Xwave Makefile 

# ■ 
CFLAGS = -O -I.. /include 

LIBS = -IXaw -IXmu -IXt -IXext -IXll -Im -U -L/usr/openwin/lib 

.KEEP_STATE: 
.SUFFIXES: .c .0 

xwaveSRC = Select.c Convert.c xwave.c InitMainx Pop2.c Video2.c Malloc.c 
InitFrame.c \ 

Frame.c Trassfonn.c Convolves. c Update.c Image.c Menu.c 
PulIRightMenu.c \ 

NaineButton.c SmeBSBpr.c Process.c Lex.c Gram.c Parse.c Color.c \ 
Bits.c Storage.c Copy.c Message.c Palette.c ImportKlics.c IconS.c Klics5.c 

\ 

KlicsSA.c KlicsTestSA.c ImportKlicsSA.c ImpKlicsTestSA.c 
objDm = ../$(ARCH) 

xwaveOBJ = $(xwaveSRC:%.c=$(objDIR)/%.o) 

$(objDIR)/xwave: $(xwaveOBJ) 

gcc -o $@ $(xwaveOBJ) $(LIBS) $(CFLAGS) 
echo ••••••••••••••••••••• 

$(xwaveOBJ): $$(@F:.o=.c) ../include./xwave.h 
gcc -c $(@F:.o= .c) $(CFLAGS) -o $@ 

Lex.c: Gram.c Lex.l 
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lex Lex.l 

mv lex.yy.c Lex.c 



Gram.c: Gram.y 

bison -dlt Gram.y 

mv $(@F:.c=.tab.h) .,/include/Gram.h 
mv $(@F:.c=.tab.c) Gram.c 
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include/Bits.h 

#ifhdef _Bits_h 
#define _Bits_h 

typedef struct { 

unsigned char buf; 

ini buf size; 

FILE *fp; 
} BitsRec, *Bits; 

#endif 
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- 434 



typedef struct DTheader { 
char file_id[8]; 
char struct_id; 

char prod_id; 

char util_id; 

char board id; 



/• "DT-IMAGE" */ 
/* 1 */ 

/*4 */ 
/* 1 ♦/ 

/* 2 */ 

char create_tiine[9]; /♦ [0-l]year, [2]month, [3]dayofinoiith, [4]dayofweek, 
[5]hour. [6]min, [7]sec, [8]sec/100 */ 



char mod_time[9]; 
char datum; 
char datasize[4]; 
char file_struct; 
char datatype; 
char compress; 
char store; 
char aspect[21; 
char bpp; 
char spatial; 
char width[2]; 
char height[2]; 
char full_width[2]; 
char fiill_height[2]; /* 512 */ 
char uinusedl[4S]; 
char comment[160]; 
char unused2[256]; 
} DTheader; 



/* as create_time */ 

/* 1 */ 
/* 1024?? */ 
/* 1 */ 

/* 1 */ 
/*0 */ 
/* 1 */ 
/* 4, 3 */ 
/♦ 8 */ 

/* 1 */ 

/♦ 512 ♦/ 
/♦ 512 ♦/ 
/* 512 */ 
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indude/Icon.h 



typedef enum { 

FWJabel, FWJcon, FW_comniand, FW_text, FW_button, FW_icon_button, 

FW_view, FW_toggle, 
FW_yn, 

FW_up. FW_down, FW_integer, 
FW_scroll, FW_float, 
FWJonn, 
} FormWidgetType; 

typedef emun { 

SW_below, SW_over, SW_top, SW_menu, 
} ShellWidgetType; 

typedef struct { 
String name; 
String contents; 

int fromHoriz, firomVert; 

FormWidgetType type; 
String hook; 
} Formltem; 
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include/Image.h 



* SXCoiisortium: Image.h,v 1.24 89/07/21 01:48:51 kit Exp $ 
*/ 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts, 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in ail copies and that 
both that copyright notice and this permission notice appear in 
supponing documentation, and that the names of Digital or MIT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO TfflS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTEES OF MERCHANTABIUTY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGUGENCE OR OTHER 
TORTIOUS ACTION, 



wo 94/23385 PCT/GB94/00677 

- 437 - 

ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 

i 

1. 

#ifhdef _XawImage_h 
#defme _XawIinage_h 

* Image Widget 



#include <X11/Xaw/Simple,h> 
#include <Xll/Xmu/Converters.h> 

/* Resources: 



Name 



Class 



RepType 



Default Value 



border BorderColor Pixel 

borderWidth BorderWidth Dimension 1 
cursor Cursor Cursor 

destroyCallback Callback XtCallbackList 
insensitiveBorder Insensitive Pixmap Gray 
mappedWhenManaged MappedWhenManaged Boolean 
sensitive Sensitive Boolean True 

bitmap Bitmap Pixmap NULL 
callback Callback XtCallbackList NULL 
X Position Position 0 



XtDefaultForeground 



None 
NULL 



True 



wo 94/23385 

-438 - 

y Position Position 0 

*/ 

#ciefme XtNbitmap "bitmap" 

#define XtCBitmap "Bitmap" 

/* Class record constants */ 

extern WidgetClass image WidgetClass; 

typedef struct _ImageCIassRec *ImageWidgetClass; 
typedef struct _ImageRec *ImageWidget; 

#endif /* _XawImage_h */ 

/* DON'T ADD STUFF AFTER THIS #endif */ 
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include/ImageHeader.h 

/* Author: Philip R. Thompson 

* Address: phils@athena.mit.edu, 9-526 

* Note: size of header should be 1024 (IK) bytes. 

* SHeader: ImageHeader,h,v 1.2 89/02/13 09:01:36 phils Locked $ 

* SDate: 89/02/13 09:01:36 $ 

* SSource: /mit/phils/utils/RCS/ImageHeader.h,v $ 

*/ 

#defme IMAGE_VERSION 3 

typedef struct ImageHeader { 

char file_versionI8]; /* header version */ 

char header_size[8]; /* Size of file header in bytes */ 

char image_width[8]; /* Width of the raster image */ 

char iniage_height[8]; /* Height of the raster imgage */ 

char num_colors[8]; /* Actual number of entries in c_map */ 

char num_channels[8]; /* 0 or 1 = pixmap, 3 = RG4S:B buffers */ 

char num_j)icmres[8]; /* Number of pictures in file */ 

char alpha_channel[4]; /* Alpha channel flag */ 

char runlength[4]; /* Runlength encoded flag */ 

char author[48]; /* Name of who made it */ 

char date[32]; /* Date and time image was made */ 

char program[16]; /* Program that created this file */ 

char comment[96]; /* other viewing info, for this image */ 

xmsigned char c_map[256][3]; /* RGB values of the pixmap indices */ 

} ImageHeader; 



/* Note: 

* - All data is in char's in order to maintain easily portability 
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* across machines and some human readibiiity. 

* - Images may be stored as pixmaps or in seperate channels, such as 

* red, green, blue data. 

* - An optional alpha channel is seperate and is found after every 

* num^chaimels of data. 

* - Pixmaps, red, green, blue, alpha and other channel data are stored 

* sequentially after the header. 

* - If num_cfaannels = I or 0, a pixmap is assumed and up to num_colors 

* of colormap in the header are used. 
*/ 

/*** end ImageHeader.h 
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incIude/ImageP.h 

/* 

* SXConsortium: ImageP.h,v 1.24 89/06/08 18:05:01 swick Exp $ 
*/ 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supponing documentation, and that the names of Digital or MIT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO TfflS SOFTWARE, 
mCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE UABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGUGENCE OR OTHER 
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TORTIOUS ACTION, 

ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 

/* 

* ImageP.h - Private definitions for Image widget 
*/ 

#i£ndef _XawIniageP_h 
#define _XawImageP_h 

* Image Widget Private Data 
* 

#include "../include/Image.h" 
^include <Xll/Xaw/SimpleP.h> 

/* New fields for the Image widget class record */ 

typedef struct {int foo;} ImageClassPart; 

/* Full class record declaration */ 
typedef struct _ImageClassRec { 

CoreClassPart core_class ; 

SimpleClassPart simple_class; 
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ImageClassPart iinage_class ; 
} ImageClassRec; 

extern ImageClassRec imageClassRec; 

/* New fields for the Image widget record */ 
typedef struct { 
/* resources */ 

Pixmap pixmap; 

XtCallbackList callbacks ; 

/* private state */ 

Dimension map_width, map^height; 
} ImagePart; 

* Full instance record declaration 

tjTpedef struct ^ImageRec { 

CorePart core; 

SimplePart simple; 

ImagePart image; 
} ImageRec; 



#endif /* _XawImageP_h */ 
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inciude/Message.h 



typedef struct { 

Widget shell, widget; /* shell and text widgets (NULL if not created */ 

XawTextBlock info; /* Display text */ 

int size, rows, cols; /* Size of buffer (info.ptr) & dimensions of display */ 

XawTextEditType edit; /* edit type */ 

Boolean own^text; /* text is owned by message? */ 

} MessageRec, *Message; 
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include/Palette.h 



#define PalettePath 

#defme PaletteExt ".pal" 

typedef struct _MapRec { 
int start, finish, m, c; 
struct __MapRec *next; 

} MapRec, ♦Map; 

typedef struct _PaletteRec { 
char name[STRLEN]; 
Map mappings; 
struct _PaletteRec *next; 

} PaietteRec, *Palette; 
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include/PulLRightMenu.h 



/♦ 

* SXConsortium: PuURightMenu.h.v 1.17 89/12/11 15:01:55 kit Exp $ 
>t< 

* Copyright 1989 Massachusetts Institute of Technology 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 
* 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO TfflS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABIUTY AND HTNESS, IN NO 
EVENT SHALL M.I.T. 

* BE UABLE FOR ANY SPECIAL. INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGUGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
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/* 

* PullRightMenu.h - Public Header file for PullRightMenu widget, 
* 

* This is the public header file for the Athena PullRightMenu widget. 

* It is intended to provide one pane pulldown and popup menus within 

* the framework of the X Toolkit. As the name implies it is a first and 

* by no means complete implementation of menu code. It does not attempt to 

* fill the needs of all applications, but does allow a resource oriented 

* interface to menus. 

*/ 

#ifhdef _PuliRightMenu_h 
#defme _PullRightMenu_h 

#include <X11/Shell.h> 

^include <Xll/Xmu/Converters.h> 

■ft 

* PullRightMenu widget 

/* PullRightMenu Resources: 

Name Class RepType Default Value 



background Background Pixel XtDefaultBackgroxmd 

backgroundPixmap BackgroundPixmap Pixmap None 
borderColor BorderColor Pixel XtDefaultForeground 

borderPixmap BorderPixmap Pixmap None 
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borderWidth 
bonomMargin 
coluranWidth 
cxirsor 

destroyCallback 

height 

label 

iabelClass 
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BorderWidth Dimension 1 

VerticalMargins Dimension VenicalSpace 
ColumnWidth Dimension Width of widest text 

Cursor Cursor None 

Callback Pointer NULL 

Height Dimension 0 

Label String NULL (No label) 

LabelClass Pointer smeBSBObjectClass 



sensinve 
topMargin 
width 
button 

X 

y 



True 
VerticalSpace 



mappedWhenManaged MappedWhenManaged Boolean True 
rowHeight RowHeight Dimension Height of Font 

Sensitive Boolean 

VerticalMargins Dimension 
Width Dimension 0 

Widget Widget NULL 
Position Position 0 

Position Position 0 



typedef struct ^PullRightMenuClassRec* PullRightMenuWidgetClass; 
typedef struct _PullRightMenuRec* PullRightMenuWidget; 

extern WidgetClass pullRightMenuWidgetClass; 



#defme XtNcursor "cursor" 
#defme XtNbottomMargin "bottomMargin" 
#defme XtNcolunmWidth "columnWidth" 
#defme XtNlabelClass "IabelClass" 
#defme XtNmenuOnScreen "mcnuOnScreen" 
#defme XtNpopupOnEntry "popupOnEntry" 
#defme XtNrowHeighi "rowHeight" 
#defme XtNtopMargin "topMargin" 



suBsnnnT shfft mw f m 
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#define XtNbutton "button" 

#define XtCColumnWidth "ColumnWidth" 
#define XtCLabelCIass "LabelClass" 
#define XtCMenuOnScreen "MenuOnScreen" 
#define XtCPopupOnEntry "PopupOnEntry" 
#define XtCRowHeight "RowHeight" 
#defme XtCVerticaiMargins "VerticalMargins" 
#define XtCWidget "Widget" 

* Public Functions. 

/* Function Name: XawPuURightMenuAddGlobalActions 

Description: adds the global actions to the simple menu widget. 

* Arguments: app_con - the appcontext. 

* Returns: none. 
*/ 

void 

XawpullRightMenuAddGlobalActions(/* app_con */); 
/* 

XtAppContext app^con; 
*/ 

#endif /* _PullRightMenu_h */ 
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include/SmeBSBpr.b 

/♦ 

* SXConsortium: SmeBSB.h.v 1.5 89/12/11 15:20:14 kit Exp $ 
♦ 

* Copyright 1989 Massachusetts Institute of Technology 

"* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior peimissiou. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 

m 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO TfflS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

* BE LIABLE FOR ANY SPECL\L, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGUGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
*/ 



SUBSTTTUTE SHEET (RULE 26) 
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/* 

* SmeBSBpr.h - Public Header file for SmeBSB object. 
* 

* This is the public header file for tlie Athena BSB Sme object. 

* It is intended to be used with the simple menu widget. This object 

* provides bitmap - string - bitmap style entries. 
* 

*/ 

#ifiidef _SmeBSBpr_h 
#defme _SmeBSBpr_h 

#include <Xll/Xmu/Conveners.h> 
#include <X11/Xaw/Sme.h> 

* SmeBSBpr object 
m 

/* BSB pull-right Menu Entry Resources: 

Class RepType Default Value 



callback Callback Callback NULL 

destroyCallback Callback Pointer NULL 

font Font XFontStruct * XtDefaultFont 

foreground Foreground Pixel XtDefauitForeground 

^eig^t Height Dimension 0 

label Label String Name of entry 
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leftBitmap 


LeftBitmap 


Pixmap 


None 


leftMargin 


HorizontalMargins Dimension 


4 


rightBitmap 


RightBitmap 


Pixmap 


None 


rightMargin 


HorizontalMargins Dimension 


4 


sensitive 


Sensitive 


Boolean 


True 


vertSpace 


VertSpace 


int 25 




width 


Width 


Dimension - 0 




X 


Position 


Position On 




y 


Position 


Position 0 




menuName 


MenuName String 


"menu" 





♦/ 

typedef struct _SnieBSBprClassRec *SmeBSBprObjectClass; 
typedef struct _SmeBSBprRec *SmeBSBprObject; 

extern WidgetClass smeBSBprObjectClass; 

#define XtNleftBitmap "leftBitmap" 

#defme XtNIeftMargin "leftMargin" 

#defme XtNrightBitmap "rightBitmap" 

#defme XtNrightMargin "rightMargin" 

#defme XtNvertSpace "vertSpace" 

#define XtNmenuName "menuName" 

#defme XtCLefiBitmap "LeftBitmap" 

#define XtCHorizontalMargins "HorizontalMargins" 

#define XtCRightBitmap "RightBitmap" 

#define XtC VertSpace "VertSpace" 

#defme XtCMenuName "MenuName" 

#endif /* _SmeBSBpr_h */ 
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include/SmeBSBprP.h 

/* 

* SXConsortium: SmeBSBP.h,v 1.6 89/12/11 15:20:15 kit Exp $ 

* Copyright 1989 Massachiisetts Institute of Technology 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 

* M.LT. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPUED WARRANTIES OF MERCHANTABIUTY AND HTNESS, IN NO 
EVENT SHALL M.LT. 

* BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGUGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 

* Author: Chris D. Peterson, MIT X Consortium 
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* SmeP.h - Private definitions for Sme object 



#ifndef ^XawSmeBSBP_h 
#defme ^XawSmeBSBP_h 

* Sme Object Private Data 
m 

#include <Xll/Xaw/SmeP.h> 
#include "../include/SmeBSBpr.h" 

* 

* New fields for the Sme Object class record. 

typedef struct _SmeBSBprClassPart { 

XtPointer extension; 
} SmeBSBprClassPart; 



/* Full class record declaration */ 
typedef struct _SmeBSBprClassRec { 
RectObjCIassPart rect_class; 
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SmeClassPan sme_class; 
SmeBSBprClassPart sme_bsb_class; 
} SmeBSBprClassRec; 



extern SmeBSBprClassRec smeBSBprClassRec; 

/* New fields for the Sme Object record */. 
typedef struct { 
/* resources */ 

String label; /* The entry label. */ 

int vert^space; /* extra vert space to leave, as a percentage 

of the font height of the label. */ 
Fixmap left_bi£map. right^bitmap; /* bitmaps to show. */ 
Dimension left_margin, right_margin; left and right margins. */ 
Pixel foreground; /* foreground color. */ 

XFontStruct * font; /* The font to show label in. */ 

XtJustify justify; /* Justification for the label. */ 

String menu_name; /* Popup menu name */ 



/* private resources. */ 



Boolean set_values_area_cleared; /* Remember if we need to unhighlight. */ 

GC norm_gc; /* noral color gc. */ 

GC rev_gc; /* reverse color gc. */ 

GC norm_gray^c; /* Normal color (grayed out) gc. */ 

GC invert_gc; /* gc for flipping colors. */ 



Dimension left_bitmap_width; /* size of each bitmap. */ 
Dimension left_bitmap_height; 
Dimension right_bitmap_width; 
Dimension right_bitmap_height; 
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} SmeBSBprPan; 

* Full instance record declaration 

typedef struct ^SmeBSBprRec { 

ObjectPart object; 

RectObjPart rectangle; 

SmePart sme; 

SmeBSBprPart sme_bsb; 
} SmeBSBprRec; 

* Private declarations. 



#endif /♦ _XawSmeBSBPpr_h */ 
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include/xwave.h 



^include 


<X11/Xlib,h> 


#include 


<X11/Xudl.h> 


^include 


<Xll/Xatom.h> 


#include 


< XI l/Xaw/Cardinals.h > 


^include 


<Xll/StrmgDefs.h> 


^include 


<X11/Xmu/Xmu.h> 




^ Y 11 /Yaw/Pnmmand h > 


ifincliide 


< XI 1/Xaw/List h > 






^include 


< XI 1/Xaw/Fonn.h > 


#iBclude 


< XI l/Xaw/ScroUbar.h > 


^include 


< XI l/XawATiewport-h > 


^include 


< XI 1/Xaw/AsciiText.h > 


^include 


< XI 1 /Xaw/Dialoe. h > 


#include 


< XI 1/Xaw/MenuButton.h > 


#iiiclude 


< XI 1/Xaw/SimDleMenu.h > 


^include 


< XI 1/Xaw/SmeBSB.h > 


#include 


< XI l/Xaw/Toggle.h> 


^include 


"SmeBSBor h" 


^include 


"PullRightMenu.h" 


^include 


<Xll/SheU.h> 


#iiiclude 


<Xll/cursorfont.h> 


#define 


STRLEN 100 


#define 


NAME_LEN 20 


#include 


"Tmage.h" 


^include 


"Message.h" 


#include 


<dirent.h> 


#mclude 


<math.h> 
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^include <stdio.h> 
#include "Palette.h" 
^include "Icon.h" 

^define PLOT_DIR "graphs" 

#defme PLOT_EXT ".plot" 

#defme ELLA_IN_DIR 

#derme ELLA_IN_EXT ".eli" 

#defme ELLA_OUT_DIR "." 

#defme ELLA_OUT_EXT ".elo" 

^define VID_DIR "videos" 

#defiiie VIDEXT ".vid" 

#defme IMAGE_DIR "images" 

jfdefme BATCH_DIR "batch" 
#define BATCH_EXT ".bat" 

#defme mCS_DIR "import" 

#defme mCS_EXT ".kUcs" 

#define mCS_SA_DIR "import" 

#defme KLICS_SA_EXT ".klicsSA" 

typedef enum { 

TRANS_None, TRANS_Wave, 
} TransType; 

typedef enimi { 

MONO, RGB, YUV, 
} VideoFonnat; 

extern String ChannelName[3][4]; 

#define negif(bool, value) ((bool)?-(vaIue): (value)) 
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typedef struct { 

String name; 

Pixmap pixmap; 

unsigned int height, width; 
} IconRec, *Icon; 

typedef void (*Proc)0; 
typedef String *(*ListProc)0; 
typedef Boolean (*BoolProc)(); 

typedef struct { 
String name; 
WidgetCiass widgetCiass; 
String label; 

String hook; /* menuName for smeBSBprObjectClass */ 
} Menultem; 

typedef struct { 

String name, button; 

ListProc list_proc; 

String action_name; 

Proc action_proc; 

caddr_t action_closure ; 
} Selectltem, *Selection; 

typedef struct { 

TransType type; 

int space[2]; 

Boolean dim; 
} WaveletTrans; 



typedef union { 
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TransType type; 
WaveletTrans wavelet; 
} VideoTrans; 
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typedef struct _VideoRec 
char name[STRLEN]; 
char path[STRLEN]; 
char files[STRLEN]; 
VideoFormat type; 
Boolean 
Boolean 
Boolean 
int rate; 
int start; 



{ 



int 
int 
int 
int 
int 



/* Name of this video name.vid */ 
/* Path to frame file(s) */ 
/* Name of frames filesOOl if not name */ 
/♦ Type of video (MONO,RGB,YUV) */ 
disk; /* Frames reside on disk rather than in memory */ 
gamma; /* Gamma corrected flag */ 

negative; /* Load negative values in data */ 

/* Frames per second */ 
/* Starting frame number */ 
si2e[3]; /* Dunensions of video after extraction x, y and 2 ♦/ 
UVsample[2]; /* Chrominance sub-sampling x and y */ 

offset; /♦ Header length */ 

cols, rows; /* Dimensions of video as stored */ 

x^offset, y_offset; /* Offset of extracted video in stored */ 



VideoTrans trans; 
int precision; 
shon **data[3]; 
stract ^VideoRec *next; 
} VideoRec, *Video; 



/* Transform technique used */ 
/* Storage precision above 8 bits */ 
/* Image data channels */ 
/* Next video in list */ 



typedef struct { 

Video video; 

char name[STRLEN]; 
} VideoCtrlRec, *VideoCtrl; 



typedef struct _PointRec 
int location[2]; 
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int usage; 

struct _PointRec *next; 
} PointRec, *Point; 

typedef struct _FrameRec { 

Widget shell, image^widget, point_merge_widget; 
Video video; 

int zoom, frame, chamiel, palette; 
Boolean point_switch, point_merge; 
Point point; 
Message msg; 
struct _FrameRec *next; 
} FrameRec, *Frame; 



#defme NO_^CMAPS 6 

typedef struct ^BatchRec { 
Proc proc; 

caddr_t closure, call_data; 
struct _BatchRec *next; 
} BatchRec, *Batch; 

typedef struct { 

char home[STRLEN]; 

XtAppContext app_con; 

Widget toplevel; 

int nojcons; 

Icon icons; 

Video videos; 

Frame frames; 

Point points; 

Palette palettes; 
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int no_paIs; 
String parse_file; 
String parse_token; 
FILE *parse_fp; 
XVisuallnfo *vismfo; 
int levels, rgbjevels, yuvjevels[3]; 
Colormap cmaps[NO_CMAPS] ; 
String batch; 
Batch batch_list; 
Boolean debug; 
int dither[16][16]; 
} GlobalRec, *Global; 

typedef struct { 

Widget widgets[3]; 

int max, min, ♦value; 

String format; 
} NumlnputRec, *NumTnput; 

typedef struct { 

Widget widgets[2]; 

double max, min, *value; 

String format; 
} FloatlnputRec, *FloatInput; 

extern Global global; 

/* InitFrame.c */ 

extern Video FindVideo(); 

/* Pop2.c */ 
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extern void NAQ; 

extern Widget FindWidgetQ; 

extern void Destroy 0; 

extern void FreeQ; 

/* Storage.c */ 

extern void NewFrameQ; 
extern void GetFrameQ; 
extern void SaveFrameQ; 
extern void FreeFrameQ; 
extern void SaveHeaderQ; 
extern Video CopyHeaderQ; 

/* Message. c */ 

extern void TextSizeQ; 

extern Message NewMessageQ; 

extern void MessageWindowQ; 

extern void CloseMessageQ; 

extern void MprimfO; 

extern void DprintfQ; 

extern void EprintfO; 

extern void MflushQ; 

/* IconS.c */ 

extern void FillFonnQ; 

extern void FillMenuQ; 

extern Widget ShellWidgetQ; 

extern Widget FormatWidgetO; 

extern void SimpleMenuQ; 
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extern int TextWidth(); 
extern Icon FindlconO; 
extern void NumlncDecQ; 
extern void FloatlncDecQ; 
extern void Change YNQ; 
extern XFontStnict *FmdFontO; 
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DATA COMPRESSION AND DECOMPRESSION 
GREGORY KNOWLES AND ADRIAN S. LEWIS 
M-2357- US 
APPENDIX B-1 
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6B0X0 Fast Top Octave 



seg 


'klics' 




macro 






TOPX 


&oId, &XX 




swap 


&HG 


• HG=G1H0 


move . w 


iDG, tXX 


• XX=GO 


neg . v/ 


&DG 


DG=D(-GO) 


add.w 


&HG,&DG 


DG=DD 


add.w 


&XX,&HG 


HG=G1D 


swap 


&HG 


HG=DG1 


move . 1 


&DG,&old 


save DD 


endm 







inacro 
TOPY 


&HGO, &newO, tHGl, &newl, 


&XX 


move . 1 
move . 1 
move . 1 
add.l 
sub.l 


&newO , &XX 

&newl,&HGl 

&HG1,&HG0 

&XX,&HG1 

&XX,&HGO 


read HG 
read HG 
copy HG 
newlsHlGl 
newO=HOGO 


endm 






macro 
TOPBLOCK 


&DGO, &HGO, &newO, &oldO, 


&DG1, &HG1, 


TOPY 
TOPX 
TOPX 


&HGO , tnewO , &HG1 , &newl , &XX 
&DGO , &HGO . fcoldO , &XX 
&DG1 , &HGi , &oldl , &XX 




endm 






macro 
TOPH 


&DG , &HG , &new , &old , &XX 




move . 1 
TOPX 


&new,&HG 

&DG,&HG,&old,&XX 




endm 






macro 
TOPE 


&:DG, &old, &XX 




move - 1 
swap 
move . w 
move . 1 


&DG,tXX 
&XX 

&XX,&DG 
&DG,&old 


XX=DG 
XX=GD 
DG=DD 
save DD 



SUBSTITUTE SHEET (RULE 26^ 



wo 94/23385 



PCT/GB94/00677 



646 



Engineering : KlicsCode : CompPict : Top . a 



endm 



TopBwd FUNC 



?S 

src 

dsz 

width 

height 



0dol 



@do2 



0dc3 



@do4 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 

link 
movem . 1 

movea . 1 
move . 1 
move . 1 
move . 1 
move . 1 

move. 1 
add.l 
move . 1 

Isr.l 
subg. 1 

Isr. 1 
subq. 1 

move , 1 
move . 1 

TOPH 

TOPH 

dbf 

TOPH 

TOPE 

move . 1 
move . 1 
adda . 1 
adda. 1 
move . 1 
TOPY 

TOPBLOCK 
TOPBLOCK 
dbf 

TOPBLOCK 
TOPE 
TOPE 
dbf 

move . 1 
add.l 

move . 1 
move . 1 
dbf 

movem . 1 



EXPORT 

8 
1 
1 
1 
1 



a6, #0 

d<l-d7/a3-a5,-(a7) • 

PS.src(a6) , aO 
PS. height ta6) ,d7 
PS. width (a6) ,d6 
aO^al 

PS.dst {a6) ,al 

d6,d5 
d5,d5 
d5,a4 

#l,d7 
#2,d7 

#2,d6 
#2,d6 

d6,d5 
(aO)+,dO 

dO.dl, {aO) + , {al)4-,d4 
dl,dO, U0) + , (al) + ,d4 
d5,(?dol 

dO.dl, (aO)H-, (al) + .d4 
dl, (alji-,d4 

aO,a2 
al,a3 
a4,a0 
a4 , al 
d6,d5 

d2, (a2)-^,d0, (aO)-*-, d4 



; no local variables 

; store registers 

; read src 

; read height 

; read width 

; read dst 

; inc = width 

; inc* =2 

; save inc 

; height/=2 

; height-=2 

; width/ =4 

; width-=2 

; ccoiint =width 

; dO=*newO++ 



while -lJ=--ccount 



newO=newl 
oldO=oldl 
newl+=inc 
oldl+=inc 
ccountswidth 



d2,d3, (a2) + , (a3) + ,dO,dl, {aO) + . (al) + ,d4 
d3,d2, (a2)+, (a3)-K,dl.dO, taO) + , (al)+,d4 
d5,@do3 ; while -1 ! =:--ccount 

d2.d3, {a2)+, Ca3)+,d0,dl, {aO)+, {al)f ,d4 
dl, (al)+,d4 
d3, (a3)-t,d4 
d7,@do2 

d6,d5 
*l,d5 

(a3) + , (al)-^ 
(a3)+, ial)+ 
d5,edo4 



fa7)+,d4-d7/a3-a5 



while -11= — height 

ccount=width 
dO=*newO+f 

copy prev line 

while -1!= — ccount 

restore registers 
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^^^^ a6 ; remove locals 

rts ; return 



ENDrUNC 
END 
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68 0X0 Table LooJcup RG3/YUV code 



machine 
seg 



MC68030 
•klics • 



seg 
endif 

MKTABLE FUNC 



if tTYPEC 'seg* )9f UNDEFINED' then 



&seg 



PS RECORD 
Table DS.L 
ENDR 

link 
movem. 1 

move . 1 
clr.l 
@MakeLoop 

move . w 

move . 1 
move , w 

add.w 
add.w 

Isr .w 
move . w 
move.w 

add.w 
move . w 
add.w 
add.w 
asr .w 
sub. w 

Isr .w 
move . w 
move . w 

add.w 
cmp . w 
bne 

move . 1 
clr.l 
@MakeNegLoop 

move . w 

move . w 



EXPORT 

8 
1 



a6.#0 

d4-d7/a3-a5, -{a7) 

PS.Table(a6) , aO 
dO 

#512, dl 

d0,d2 
d2,d3 

d2,d2 
dl,d2 

#2,d2 
d2, (a0)+ 
d2, (a0)+ 

d3,d3 
d3,d2 
d3. d3 
d2,d3 
^f4,d3 
d3,dl 

#2,dl 
dl. (a0)+ 
dl, (a0)+ • 

«l,d0 

i*S0200,dO 

QMakeLoop 

#$00000200, do 
d4 

#512, dl 
d0.d2 



; store registers 

; Table is (long) (2U+512) (long) {512-(6- 
;ti value 

;512 

;U 
;U 

;2U 

;2U + 512-- 



Place 1st word 
Place 2nd word 

2U 
2U 
4U 
6U 

6U/16 

512 - (6U/16) 



; Place 1st word 
? Place 2nd word 



;U value 

;512 
;U 



SUBSTITUTE SHEET (RULE 261 



wo 94/23385 



- 649 - 



Engineering: KlicsCoderCompPicc : Table. 



or.w iSFCO0,d2 

move . w d2 , d3 ; a 

add.w d2,d2 ; 2U 

add.w dl,d2 ;2U + 512 



; Place 1st word 

; Place 2nd word 

;2U 

;2U 

;4U 

;6U 

;6U/16 

;512 - (60/16) 



; Place Isc word 
; Place 2nd word 



©MakeNegLoop 

; restore registers 

; remove locals 

; return 



ENDFUNC 


macro 




FIXOV 


&V, &SP1, &SP2 


move . w 


&V,&SP1 


clr.b 


&SP1 


andi.w 


#$3FFF.&SP1 


sne 


&SP1 


btst 


#13,&SP1 


seq 


&SP2 


or .b 


&SP1.&V 


and. w 


&SP2 , &V 


swap 


&V 


move . w 


&V,&SP1 


clr.b 


&SF1 


andi.w 


#$3FFF,&SP1 


sne 


&SP1 


btst 


#13,&SP1 


seq 


&SP2 


or.b 


&SP1,&V 


and.w 


&SP2,&V 


swap 


&V 


endm 





asr . w 

move . w 

move . w 

add.w 

move.w 

add.w 

add.w 

asr.w 

sub.w 

asr.w 
move . w 
move.w 

add.l 
add.l 
cirip . w 



fi2,d2 

d2, (aO)+ 

d2, (aO)+ 

d3,d3 

d3,d2 

d3.d3 

d2,d3 

#4,d3 

d3,dl 

#2,dl 
dl, (aO)+ 
dl, (aO)-t- 

§l,dO 
#l,d4 
#$0200, d4 



movem. 1 ( a7 ) + , d4 -d7 /a3 - a5 

unlk a6 
rts 



If &TYPE( 'seg' )?f UNDEFINED* then 

seg &seg 

endif 

YUV2RGB4 FUNC EXPORT 

PS RECORD 8 

Table DS.L 1 
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DS. L 


1 


V 


DS. L 


1 


Tl 


DS. L 


1 


y 


DS . L 


1 






1 




Ub . Li 




cols 


DS.L 


1 




ENDR 




LS 


RECORD 


0, 


inc 


DS.L 


1 


width 


DS.L 


1 


fend 


DS.L 


1 


count 


DS.L 


1 


LSize 


EQU 


♦ 




ENDR 





DECR 



^*yoid YUVtoRGBtPtr TablePtr. long -pixmap, short ^Ycshort ^Ucshort -Vclong area. 1 
-long inc. Iwidth. fend, count ; 

d0..6 - used, d7 - count 



link 
mo vem . 1 



move 

move 

move 

move 

move 

move 

move 

Isi.l 

add.l 

move . 1 

move . 1 

move . 1 

asr .1 

subq.l 

move . 1 

add.l 
add.l 
add.l 
move . 1 

move . 1 

Isl.l 

add.l 

add.l 

sub.l 

move . 1 

move . 1 
move. 1 



a6, #LS. LSize 
d0-d7/a0-a5, -(a7) 

PS.pixmap(a6) , a4 
a4,a5 

PS. y(a5) ,aO 
aO, al 

PS.U(a6),a2 
PS.V(a6) ,a3 
PS.area(a6) ,d7 
#2,d7 
a4,d7 

d7,LS. fend(a6) 

PS.width{a6) ,d5 

d5,d7 

#l,d7 

#l,d7 

d7,ps.width(a6) 

d5,d5 
d5,al 
d5,d5 

d5, LS. width (a6) 

PS. cols (a6) ,d4 

#2,d4 

d4,a5 

d4.d4 

d5,d4 

d4,LS.inc(a6) 

a6,-{sp) 
PS.Tabie(a6) ,a6 



Colors wanted are: 

RED = (Y + 2V + 512) / 4 

GREEN = fY - V * 512 - {6U/16)) / 4 
BLUE = (Y + 2U + 512) 



/ 4 



; save locals 

; store registers 

; pinO=pixmap 
; pmlspmO 
; YO=Yc 
; Yl=yO 
; U=Uc 
; V=Vc 
; fend=area 
; fend«=2 
; fend+=pmO 
; save fend 
; width=width 
; count =width 
; count»=l 
; count -=1 
; save width 

; width* =2 

; Yl+=width 

; width* =2 

; save width 

; inc=cols 
; inc«=2 

pml+ = inc 
; cols*=2 

; inc now 2*cols-width bytes 
; save inc 



UTable part is for {2V + 512) 
UTable part is for (512 - (5u 
UTable part is for C2U + 512) 
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dl - ra, d2 - ga, d3 - ba. 



d4 



move . w 
beg 
and. w 
move . 1 
move . 1 
move . 1 
©DidOuickU 

move . w 
beq 
move . w 
asr.w 
siib.w 
move . w 
swap 
move .w 
move . 1 

and. w 
move . 1 
move . 1 
bra 

QDoQuickU 

move . 1 
move . 1 
move . 1 
bra 

@DoQuickV 

move . 1 
move , 1 
move . 1 



(a2)+,d2 
@DoOuickD 
#S03PT,d2 
(a6,d2.w*8) ,d3 
d3,d6 

4{a6,d2.w*8) ,d5 

(a3)+,dl 

0DoOuickV 

dl,d4 

«2,dl 

dl.dS 

d5,d2 

d5 

d2,d5 
d5,d2 

#$03FF,d4 
(a6,d4.W8) .d4 
d4,dl 
©TestEnd 



#$00800080, d3 

d3,d6 

d3 . d5 

@DidQuickU 



d5,d2 

#$00800080, d4 
d4,dl 



rb, d5 - gb/512, 
; U 



d6 - bb 



;3LUE,Get (2U i- 512)/4 for Blue = (Y + 
;Dup for second pair 

;GREEN, Get (512 - {6U/15))/4 for Gree: 



;if zero then handle using the quick m 
;GREEN, Get (512 - (6U/1$) - v)/4 for • 

;Dup for second pair 

;RED, Get (2V 512) /4 for Red = (Y + 



;BLaE,Get (2U + 512)/4 for Blue = (Y + 
;Dup for second pair 

.-GREEN, Get {512 - [6U/16))/4 for Gree: 



GREEN, Get (512 - {6U/16) - V)/4 for 
RED, Get (2V + 512) /4 for Red = fY + 
Dup for second pair 



@Test£nd 



; add Ya 

move . 1 

asr.w 

swap 

asr.w 

swap 

add.l 

add.l 

add.l 

; add Yb 

move . 1 

asr.w 

swap 

asr.w 

swap 

add.l 

add.l 

add.l 

move. 1 
or ,1 

or.l 
or.l 
or.l 



to RGB values - FETCHY (aO) dO, dl, d2 , d3 
(a0)+,d0 ;Y 
#2,d0 
do 

#2, do 

do ;Y is -128 to +127 

<^0,dl ;RED, Get (Y+ ?V + 512) for Red = (Y + 

<^0'<i2 ;GREEtJ, Get (Y + (512 - (5U/16)} - V) 

<^0,d3 ;BLUE,Get (Y + (20 + 512) for Blue = C 



to RGB values 
(al)-,dO 
#2, do 
do . 
#2,d0 
do 

dO,d4 
dO,d5 
d0,d6 

dl,dO 
d4,d0 

d2,d0 
d3,d0 
d5,d0 



FETCHY2 (al) + ,d0,d4,d5,d6 
;Y 



;Y is -128 to +127 

;RED, Get (Y+ 2V ^ 512) for Red = (Y + 
;GREEN, Get (Y + (512 - (6U/16) ) - V) 
; BLUE, Get (Y + (2U + 512) for Blue = (' 
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or.l 

and. 1 
bne 

; save RGBa 
Isl.l 
or.l 
move, 1 
swap 
move . w 
swap 
move - w 
move . 1 
move . 1 

; save RGBb 
Isl.l 
or.l 
move . 1 
swap 
move . w 
swap 
move . w 
move . 1 
move . 1 

dbf 

move. 1 
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d6,dO 



0do2 



adda . 1 
adda. 1 
adda. 1 
exg. 1 
move . 1 
culpa. 1 
blt.w 



movem. 1 

unlk 

res 



move . 1 
move . 1 
bra 



tSFFOOFFOO.dO 
@over 

- MKRG3 dl,d2,d3, (a4) 
#8,d2 
d3,d2 
dl,d3 
d3 

d2,d3 
d2 

d2.dl 
dl, (a4)H. 
d3, (a4)+ 

- MKRGB d4.d5,d6, (a5)H 
#8,d5 
d6,d5 
d4,d6 
d6 

d5,d6 
d5 

d5,d4 
d4, {a5)+ 
d6, (a5)+ 

d7,Qdo 

(sp)+,a6 



LS.inc (a6) ,a4 
LS.inc(a5) , a5 
LS.width(a6) , aO 
aO^al 

PS.width(a6) ,d7 
LS. feiid(a6) ,a4 
@do2 

(a7)+,d0-d7/a0-a5 
a6 



a6. -(spj 

PS.Table(a6) ,a6 
@do 



if overflow 



G=GOGO (12) 
G=GBGB (12) 
B=OR0R (12) 
B=OROR (21) 
B=ORGB (2) 
G=GBGB (21) 
R=ORGB (1) 
*RGB+-i-=rgb (1) 
•RGB++=rgb (2) 



G=GOGO (12) 
G=GBGB (12) 
B=OROR fl2) 
B=OR0R (21) 
B=ORGB (2) 
G=GBGB (21) 
R=ORGB (1) 
*RGB+-h=rgb (1) 
♦RGB-*-* = rgb (2) 

while 



pmO-t-=inc 

pml+=inc 

YO+=width 

yi<->YO 

counc -width 

pmO<f end* 

while 

restore registers* 
remove locals 



return 



@FixIt 

btst 
beg 
and. 1 
QDlTopNotNeg 
btst 
beq 
and. 1 
or.l 

SDlTopNotPos 

btst 
beq 



#31, do 

GDlTopNotNeg 
#SO00OFFFF,dO 

#24, do 

QDlTopNotPos 

#$OOOOFFFF,dO 

#$O0FFO0O0,dO 



#15, do 

@DlBotNotNea 



;See if upper word went negative 
;Pin at zero 

;See if upper word went too positive 

;Mas)c old data out 
;New data is maxed 

;See if lower word went negative 
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and.l 
@Dl3otNotNeg 
btsc 
beq 
and.l 
or.l 

^DlBocNotPOS 

res 
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#$FFF?0000,dO ;pin ac zero 

;See if lower word went too positive 



#8, do 

0DlBotNoCPos 
iSFFFFOOOO^dO 
#$OOOOOOFF,dO 



;Mask old data out 
;New data is maxed 



@over 



move . 1 
bsr 
move. 1 


dl,dO 

flpi vTf- 

dO,dl 


move . 1 
bsr 
move . 1 


d2.d0 

SFixIt 

d0,d2 


move . 1 
bsr 
move . 1 


d3,d0 

eFixic 

d0,d3 


move . 1 
bsr 
move . 1 


d4,dO 

QFixlc 

dO,d4 


move . 1 
bsr 
move . 1 


dS.dO 

QFixIt 

d0,d5 


move . 1 
bsr 
move. 1 


d6,d0 

@FixIt 

dO,d6 


bra 




ENDFUNC 





Em) 
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© Copyright 1993 KLICS Limited 
All rights reserved. 

Written by: Adrian Lewis 



68000 Klics Utilities 



seg 

KLCopy FUNC 



' klics • 
EXPORT 



KLCOPYlshort •src. short *dst, inc area) 



PS 
src 
dst 
end 



RECORD 

DS.L 

DS.L 

DS.L 

ENDR 



8 
1 
1 
1 



0do 



link 

move . 1 
move . 1 
move . 1 
Isr.l 
subq. 1 
move . 1 
move . 1 
move . 1 
move . 1 
move, 1 
move . 1 
move . 1 
move . 1 
dbf 

unlk 
res 



a.6, #0 




; no local variables 


PS. src (a6) , aO 


; short *src 


PS. dst (a6) ,al 


; short •dsc 


PS.end(a6) ,d3 


* long area 


S4,d3 




in words (x8) 


#l,d3 




• area-=l 


(aO)^-, 


(al) + 


*dstt-+ = *src++ 


{aO)+. 


(al) + 


*ds t +-♦- = * src 


(aO)+, 


(al) + 


*dst++=*src++ 


(aO)+, 


(al) + 


•dsc++ = *src+-*- 


(aO)+, 


(al}^- 


*QSt++ = *src+-^ 


(aO)+, 


(al) + 


* ds t -♦"»-='• s rc + + 


(aO)+, 


(al)* 


♦dst++=*src++ 


(aO)+. 


;al) + 


*dst+-»-=*src++ 


d3 , @do 




if -li=--area goto do 


a6 




remove locals 






return 



ENDFUNC 
KLHal f FU>:c EXPORT 



KLHALFtshort *src, short *dst. long width, long height) 
Dimensions of dst (width, height) are half that of src 



PS 

src 

dst 

width 

height 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 



link 
moveiu. 1 

move . 1 
move . 1 



a6, #0 
d4, -(a7) 

PS.src(a6) ,aO 
PS.dst /a61 ,al 



no local variables 
store registers 



short 
short 



*Grc 
"dst 
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move .1 PS . width ( a6 ) , d2 

move.l PS. height (a6) ,d3 

subq.l #l,d3 * 

^do_y move .1 d2 , d4 

isr.l #2,d4 

subq.l #l,d4 

@do_x move .1 ( aO ) + , dO 

move.w (aO)+.dO 

addq.l #2 , aO 

move.l dO, (al)+ 

move.l (aO)+,dO 

move . w i aO ) + , do 

addq.l #2,a0 

move.l dO. (al)+ 

dbf d4 , @do.x 

adda .1 d2 , aO 

adda.l d2,a0 

adda .1 d2 , aO 

adda.l d2,a0 

dbf d3 , 0do_y 



; long width 
; long height 
; height -=1 
; count =width 
; count /= 2 
; count -=1 
; dO=»src++ 
; d2=*src++ 
; src+=l short 
; *dst+-*-=dO 
; dO=*src++ 
; .d2r«src-t-+ 
; src+=l short 
; *dst++=dO 

; if -li= — width goto do_„x 

; skip a quarter row 

; skip a quarter row 

; skip a quarter row 

; skip a quarter row 

; if -1!= — height goto do_y 



* 


movem. 1 

unlk 

rts 


(a7)+,d4 
a6 


; restore registers 
; remove locals 
; return 




ENDFUNC 






KLZero 




EXPORT 




KLZERO(short *data. int area); 

* 




PS 

data 
end 

* 


RECORD 
DS.L 
DS.L 
ENDR 


8 
1 
1 




* 


link 


a6,#0 


; no local variables 


@do 
* 


move . 1 

move . 1 

Isr.l 

subq. 1 

clr.l 

clr.l 

clr.l 

clr.l 

dfaf 


PS. data {a6) ,aO 

PS,endia6) ,d3 

#3,d3 

#l,d3 

(aO)* 

(aO) + 

(aO) + 

(aO)-i. 

d3,0do ■ 


; short *data 

; long area 

; in words (x4 > 

; area-=l 

; *dst+-K=*src-»-^ 

; *dst++=*src+f 

; *dst++=*src+-^ 

; *dst++=*src-»-»- 

; if -1J= — area goto 


* 


unlk 
rts 


a6 


; remove locals 
; return 


•— — — . 


ENDFUNC 






CLEARA2 


FUNC 


EXPORT 





move. 1 
rts 



#0,a2 



END 
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® Copyright 1993 KLICS Limited 
All rights reserved. 

Written by: Adrian Lewis 



typedef struct { 
int 



float 



int 



bpf.in. 


/* 


User 




bpf _out , 


/* 


User 




buf_size; 


/* 


User 




intra. 


/* 


Calc 




auto_q. 


/* 


User 




buf_sw; 


/* 


user 




quant. 


/* 


User 




thxesh. 


/* 


User 




compare. 


/» 


User 




base[5] ; 


/• 


User 




buffer. 


/* 


Calc 




prevbytes. 




Calc 




prevquacc ; 


/* 


Calc 




tn:p_quant ; 


/* 


Calc 





Bytes per frame in input scream */ 
Bytes per frame in output stream ♦/ 
Buffer size (bytes) */ 

Compression mode intra/ inter •/ 

Automatic quantization for rate control */ 

Theoretical buffer on/off */ 

Starting quantiser value */ 
Threshold factor */ 



/* Calc - Current quantiser value quant */ 



typedef struct { 
KlicsSeqHeader 
KlicsFrameHeader 
KlicsEDataRec 
Buffer 

) KlicsERec, *KlicsE; 



seqh 
f rmh 
encd 
buf ; 
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© Copyright 1993 KLICS Limited 
Ail rights reserved. 

Written by: Adrian Lewis 



680X0 KlicsDecode code 

Fast code for: 

3/2 octave input stream 
2/1 octave output image 



seg 

include 
include 



•klics' 
'Bits3.a* 
' Traps. a ' 



machine 



MC68030 



Data stream readers: 

XDELTA, X'/ALUE, SKI?KUFF, XXNT 



macro 
XDELTA 

bu ferine 

buf_get 

beq.s 

moveq 

buf_get 

bne.s 

@dopos buf_get 
dbne 
bne . s 

move. 1 
subq.b 
Isr.l 
andi . w 
add.w 
bra. 5 

Sfndpos neg.w 
addq. 1 
bra.s 

@doneg buf_get 
dbne 
bne.s 

move . 1 
subq.b 
Isr. 1 
andi . w 



&addr , &step , &ptr , &data , &bno , &spare 



&ptr,&data,&bno 

&data, &bno 

@quit 

#6 , &spare 

&data , &bno 

@doneg 

&data,&bno 
&spare, Qdopos 
Qfndpos 

&data, &spare 
#7,tbno 
&bno r &spare 
#$007F,&spare 
#8, &spare 
@write 

&spare 
#7 , fitspaxe 
Swrite 

&data,&bno 
&spare, Qdoneg 
Qfndneg 

&data, &spare 
#7 , &bno 
&bno« &spare 
#S007F,&soare 



if zero write 
set up count 
read sign 

if negative -> doneg 



if 



-spare 1 =- 



spare=data 
bno-=6 
spare»=bno 
spare AND= mask 
spare+=9 



bits-sbits 
bits+=8 



if 



-spare! =-1 



spar e=: data 
bno-=6 
spare»=bno 
spare AND= mask 



I 
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add.w 
neg . w 
bra.s 

^fndneg subq.l 

Gwrice Isl.w 
swap 
add.w 
swap 
add.w 

@quit 

endm 
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; spare +=9 



#8, Sspare 
&spare 
ewrite 

#7, &spare 

&scep, &spare 
&step 

&:Step, &spare 
&step 

fitspare, &addr 



level-=8 
level<<=step 

•addr=delta 



Gdopos 



macro 
XVALO 

clr . w 

buf_rinc 

buf_gec 

beg. s 

moveq 

buf^gec 

bne.s 

buf_gec 

dbne 

bne.s 

move . I 

subq.b 

Isr.l 

andi.w 

add.w 

bra.s 



@fndpos neg. w 
addq. I 
bra. s 

Sdoneg buf_gec 
dbne 
bne. s 

move . 1 
. subq . b 
Isr.l 
andi .w 
add.w 
neg. w 
bra, s 

@fndneg subq.l 

0wrice Isl.w 
swap 
add.w 
swap 
move . w 

Squic 



&addr, &scep,&pcr, &data, &bno, &spare 



&spare 

&ptr.&daca,&bno 

&data, &bno 

Oquit 

#6, & spare 

&data, &bno 

Gdoneg 

&data, &bno 
&spare, ©dopos 
Gfndpos 

&data, &spare 
#7 , &bno 
&bno, ispare 
#$007F.&spare 
#8 , &spare 
©write 

&spare 
#7 , £spare 
@wrice 

&data, &bno 
&spare, ©doneg 
©fndneg 

tdaca, &spare 

# 7 , &bno 

Stbno, &spare 

#S007F.ispare 

#8,&spare 

&spare 

©write 

#7, &spare 

&step,&spare 
&scep 

&step, tspare 
&£tep 

&spare, &addr 



if zero write 
set up count 
read sign 

if negative -> doneg 



if — spare !=-l 



spare=data 
bno-=6 
spare»=bno 
spare AND= mask 
spare+=9 



; bits-=bits 
; bits+=8 



if — spare !=-! 



spare=.data 
bno-=6 
spare>>=bno 
spare AND= mask 
spare+=9 



level-=8 
level«=step 

♦addr=level 



endm 
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macro 
XVALl 

cir.w 

buf_rinc 

buf_gec 

beq.s 

moveq 

buf_get 

bne. s 

Sdopos buf_get 
dbne 
bne. s 

move.l 

subg.b 

Isr.l 

andi.w 

add.w 

bra. s 

Sfndpos neg.w 
addq.l 
bra. s 

Sdoneg buf_get 
dbne 
bne.s 

move . 1 

sxibq.b 

Isr.l 

andi , w 

add.w 

neg.w 

bra.s 

@fndneg subg, 1 

@write Isl.w 

Ocjuit move.w 
* 

endm 
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&addr , &step, &ptr , &daca, tbno, &spare 
&spare 

&ptr, &data,&bno 
&daca» &bno 
©quit 
#6,&spare 
&daca, tbno 
©doneg 



&data,&bno 
&spare, @dopos 
@fndpos 

&data, tspare 
#7 , tbno 
Sibno, & spare 
'#S007F,&spare 
#8, &spare 
(iwrite 

&spare 
#7, tspare 
©write 

tdata.fiLbno 
& spare, @doneg 
©fndneg 

&data, t spare 
#7, &bno 
&bno , &spare 
#$007F,&spar€ 
#8, &spare 
& spa re 
Swrite 

#7, &spare 

&scep, &spare 
tspare, iaddr 



if zero write 
sec up coiinc 
read sign 

if negative -> doneg 



if — spare i=-l 



sparer data 
bno-=6 
spare»=bno 
spare AND= mask 
spare+=:9 



bits-=bits 
bits+=8 



if 



- spare ! = 



spare=data 
bno-=6 
spare»=bno 
spare AND= mask 
spaxe+=9 



level-=8 

level«=step 
*addri= level 



(3 do 



@6nd 
@quic 



macro 
SKIPHUFF 

buf_gec 
beq. s 
buf_get 
moveq 

bu f _get 
dbne 
bne. s 

subq.b 
buf_rinc 



&pcr , &daca,&bno, & spare 



idaca, &br.o 
@guit 

&data,&biio 
#6, & spare 

&data,&bno 
&spare, @do 
@end 

#7 , &bno 

&ptr,&data,&bno 



if zero quit 
skip sign 
set up count 



if — spare!=-l 



bno-=6 
fill buffer 



endm 
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macro 
XINTX 



&bits r &addr , &3Cep, &ptr . idata, tbno 



Noce: half_q is missing 



epos 
Scone 



buf_rinc 
move . 1 
sub.b 
subq.b 
Isr.l 
clr.l 
bsec 
subq. 1 
btst 
beq. s 
and, 1 
neg. 1 
bra. s 
and. 1 
Isl.l 
move . w 



&ptr, idaca, Stbno 

&data,dO 

&bits, &bno 

#l,&bno 

&bno , do 

dl 

&bits,dl 

#l,dl 

&bits,dO 

@pos 

dl,dO 

dO 

@conc 
dl.dO 
&scep, dO 
dO , &addr 



result=daca 
dl-=bits-l 
dl- = l 

result>>=bno 
dl=0 

dl[bicsj=l 

dl=inask 

sign? 

if positive goto pos 
apply mask leaving level 
level-=level 
goto cone 

apply mask leaving level 

level«=scep 

*addr=result 



endm 



macro 

XINT &bi t s , & addr , &s t ep , &pt r » &da t a , &bno 

Hardware comparable version: sign mag( lsb->msb) 



eshft 



epos 



buf_rinc 


fitpcr,&data, tbno 


move . 1 


&data»dO 


sub.b 


tbits, &bno 


subq.b 


frl,&bno 


Isr.l 


&bno, dO 


clr.l 


dl 


swap 


&bno 


move . w 


&bits,&bno 


subq. w 


*1, tbno 


Isr.l 


»l,dO 


roxl.l 


#l,dl 


dbf 


tbno, <?shf t 


swap 


tbno 


best 


#0,dO 


beq. s 


epos 


neg. 1 


dl 


Isl.l 


istep,dl 


move . w 


dl,&addr 


endm 





result=data 

dl-=bits-l 

dl-=l 

temp^>=bno 

resulr.=0 

use free word 

bno=bnc,bits 

count =bits-2 

shift msb from Temp 

into Isb of result 

for entire magnitude 

restore bno 

sign test 

if positive -> pos 
result= -result 
result<<=step 
•addr=result 



* Block data read/write: 
* 

VOID, STILL, SEND, LPFSTILL 



macro 

VOID &x_j3lk, &y_blk 

clr.w (a2) 
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addq . 1 
clr . w 
adda . w 
clr .w 
addq. 1 
clr .w 

endm 

macro 
STILL 

XVALO 

addq. 1 

XVALO 

adda.w 

XVALO 

addq. 1 

XVALO 

endm 

macro 
STILLSEND 

XVALl 

addq . 1 

XVALl 

adda.w 

XVALl 

addq. 1 

XVALl 

endm 

macro 
SEND 

XDELTA 
addq. 1 
XDELTA 
adda . w 
XDELTA - 
addq. 1 
XDELTA 

endm 

macro 
LPFSTILL 

XINT 

addq. 1 

XINT 

adda.w 

XINT 

addq . 1 

XINT 
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&x_blic, a2 ; caddr+=x_blk 
(a2) 

ty_blk, a2 ; caddr+=y_blk 
{a2) 

&x_blk, a2 ; caddr+=x_blk 
(a2) 



tx_blk . &y_blk t & s t ep 
{a2) ,&step.a0,d6,d7,d0 

5tx^lk. a2 ; caddr-»-=x_blk 

(a2) ,&step, aO,d5, d7rd0 

&y_blk,a2 ; caddr+=y_blk 

ia2) ,&step, a0,d6,d7,d0 

Sx_blk.a2 ; caddr+=x_blk 

(a2) , tscep,a0,d6,d7,d0 



&x_blk. &y_blk, &step 
(a2> ,&step, aO,d6,d7,dO 

&x_bik,a2 ; caddr+=x_blk 
(a2) .iGtep. a0,d6,d7,d0 

&y_blk, a2 ; caddr-^sy.blk 
(a2) ,&scep, a0,d6,d7,d0 

&x_blk,a2 ; caddr-t-=x_blk 
(a2) ,&step,a0,d6,d7,d0 



&x_b ik , &y_blk , & s t ep 
(a2) ,&scep,a0,d6,d7,d0 

ix_.blk.a2 ; caddr+=x_blk 

(a2) ,&step.a0,d6,d7,d0 

&y_blk,a2 ; caddr+=y_blk 

(a2) ,&step,aO,d6,d7,dO 

&x_blk,a2 ; caddr+=x_blk 

{a2) ,&step,a0.a6,d7,dO 



&x_blk, &y_blk, &step, &bits 

&bits. (a2) ,&step,a0,d6,d7 
&x_blk,a2 

&bits , ( a2 ) , &step, aO , d5 , d7 
iy_blk,a2 

&bits, (a2) ,&step,a0,d6,d7 
&x_blk,a2 

ibits, (a2) ,&step,a0,d6,d7 



Readint ( at baddr ) 

caddr + =x_bl k 

Readlnn 

caddr +=y_blk 

Readint 

caddr -hsx^blk 

Readint 



endm 
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Daca skipping: 

SKIP4, STILLSKI?. SS.SKIP, SENDSKI? 



SKIP4 



FUNC 

bu ferine 
SKIPKUFF 
SKIPHUFF 
SKIPHUFF 
SKIPHUFF 
res 



EXPORT 



a0,d6,d7 

aO,d6,d7,dO 

aO,d6,d7,dO 

aO,d6,d7,dO 

aO,d6,d7,dO 



fill buffer 



ENDFUNC 
STILLSKIP FUNC 



buf_rinc 
buf_get 
beq, s 
bsr 

buf_rinc 
buf_gec 
beq.s 
bsr 

buf_rinc 
buf_gec 
beq. s 
bsr 

buf_rinc 
fauf_gec 
beq. s 
bsr 
rts 



@skl 

esk3 
@nxt 



ENDFUNC 



EXPORT 

aO,d6,d7 
d6,d7 
@skl 
SKXP4 
aO,d6.d7 
d6,d7 
@sk2 
SKIP4 
a0.d6.d7 
d6.d7 
@sk3 
SKIP4 
aO.dS, 
d6.d7 
@nxt 
SKIP4 



,d7 



SS_SKIP FUI^C 



EXPORT 



@skl 



@sk2 



@sk3 



buf_rinc 


a0,d6,d7 


buf _gec 


d6,d7 


beq. s 


0skl 


buf^gec 


d6,d7 


bne. s 


@skl 


bsr 


SKIP4 


bu£_rinc 


aO , d6 . d7 


buf_gec 


d6,d7 


beq. s 


@sk2 


buf _get 


d6,d7 


bne.s 


esk2 


bsr 


SKIP4 


buf_rinc 


aO,d6.d7 


buf_gec 


d6,d7 


beq.s 


@sk3 


buf_get 


d6,d7 


bne.s 


@sk3 


bsr 


SKIP4 


buf_rinc 


aC,d6,d7 


buf_get 


d6,d7 


beq. s 


@nxc 


buf_get 


d6.d7 



; BUF_INC 

; BUF_GET 

; if 0 the STOP 

; BUF_INC 

; BUF.GET 

; if 0 Che STOP 

; BUF.INC 

; BUF^GET 

; if 0 Che STOP 

; BUF_INC 

; BUF„GET 

; if 0 the STOP 



BUF_INC 
BUF.GET 

if 0 then STOP 
BUF_GET 

if 1 then VOID 

BUF_INC 
BUF_GET 

if 0 then STOP 
BUF_GET 

if 1 Chen void 

BUF_INC 
BUF.GET 

if 0 Chen STOP 
BtrF_GET 

if 1 then VOID 

BUF_INC 
BUF.GET 

if 0 then STOP 
BUF_GET 
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(3nxt 



@5kO 



0sk2 



0slc3 



@sk4 



@sk5 



@sk6 
@nxt 



bne. s 


@nxt 


bsr 


SKIP4 


rts 




ENDFUNC 




I? FUNC 


EXPORT 


buf_rinc 


a0,d6,d7 




d6,d7 


beq.s 


@skl 


buf_gec 


d6,d7 


beq.s 


SskO 


buf _gec 


d6,d7 


beq.s 


@skl 


bsr 


SKIP4 


bu ferine 


a0.d6 d7 


buf^gec 


d6,d7 


beg , s 




buf get 


UO , u / 


beq. s 


(ask2 


buf_get 


d6,d7 


beq. s 




bsr 


SKIP4 




aO » d6 , d7 


buf get 


UD , Q / 


beq ■ s 




bu £ ge t 


Qo , a / 


beq.s 


@sk4 


buf_get 


d6,d7 


beq. s 




bsr 


SKIP4 




ao # do , a7 


buf_gec 


d5,d7 


beq. s 


@nxt 


buf_get 


d6,d7 


beq. s 


@5k6 


buf_get 


d6,d7 


beq . s 


Onxt 


bsr 


SKIP4 


rrs 




ENDFUNC 
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; if 1 then VOID 



; BUF^INC 

; BUF_GET 

; if 0 the STOP 

; BUF_GET 

; if 0 then STlLLSEtiD 

; BUF_GET 

; if 0 then VOID 



BUF_INC 

BUF_GET 

if 0 the STOP 

BUF^GET 

if 0 then STTLLSEND 
BtrF_GET 

if 0 then VOID 



BUF_INC 

BCJF_GET 

if 0 the STOP 

BUF_GET 

if 0 then STILI*SEND 
BUF_GET 

if 0 then VOID 



BUF_INC 
BUF_GET 

if 0 then STOP 

BUF.GET 

if 0 then STILLSEND 
BUF_GET 

if 0 then VOID 



Octave Processing: 

DOSTILLO, DOSENDO, DOSTILLl, 
DOVOIDl, DOSTILLSENDl , DOSENDl 



DOSTILLO FUNC EXPORT 
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escill 



buf_get 
bne. s 
res 

inove . 1 

STILL 

XVALO 

addq. 1 

XVALO 

adda.w 

XVALO 

addq.l 

XVALO 

bsr 
rts 



aO.dS.d? 
d6,d7 



al,a2 
#4,d5.d3 

(a2) ,d3,aD,d6,d7,dO 
#4.a2 

(a2) ,d3.a0,d6,d7,d0 
. d5.a2 

{a2) ,d3,aO,d6.d7,dO 
#4,a2 

(a2),d3,a0,d6,d7,d0 



STILLSKIP 



ENDFUNC 
DOSENDO FUNC 

buf_rinc 
buf_gec 
bne. s 
rts 



EXPORT 



@conc 



move. 1 
bu£_get 
beq. w 
buf_gec 
beq.w 

SEND 

XDELTA 
addq.l 
XDELTA 
adda.w 
XDELTA 
addq. 1 
XDELTA 

bsr 
rts 



a0,d6,d7 

d6,d7 

@cont 



al,a2 

d6.d7 

@ss 

d6,d7 

evd 

#4.d5,d3 

(a2) ,d3,a0,d6,d7,d0 
#4,a2 

(a2) ,d3.a0,d6,d7,d0 
d5,a2 

(a2) ,d3,aO,d6,d7,dD 
#4,a2 

<a2) ,d3,a0,d6,d7.d0 



SENDSKIP 



;STILLSEND #4.d5,d3 



0vd 



XVALl 

addq. 1 

XVALl 

adda.w 

XVALl 

addq. 1 

XVALl 

bsr 
res 

; VOID 



(a2),d3,aO,d6,d7,dO 
#4,a2 

(a2) ,d3,a0,d6,d7,d0 
d5,a2 

(a2) ,d3,a0,d6.d7,d0 
#4,a2 

(a2) ,d3,a0,d6,d7,d0 
SS_SKIP 

#4,d5 



BUr_INC 
BUF_GET 
if 1 the STILL 



caddr=baddr 



caddr+=x_blk 
caddr+=y_blk 
caddr+nx.blk 



BUF^iriC 
BUF_GET 

if 1 then concinue 



caddr=baddr 
BUF_GET 

if 0 then STILLSEND 
BUF_GET 

if 0 then VOID 



caddr-r=x_blk 
caddr+=y_blk 
caddr+=x_blk 



caddr+=x_blk 
caddr+=y_blk 
caddrf=x_blk 
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clr. w 
addq. 1 
clr.w 
adda . w 
clr.w 
addq. 1 
clr.w 
rts 
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(a2) 

#4,a2 

(a2) 

d5,aL2 

(a2) 

#4.a2 

(a2) 



; caddr+=x_blk 
; caddr+=y_blk 
; caddr+=x_bl)c 



ENDFDNC 



macro 
DOSTILLl 

buf_gec 
beq.w 

inove . 1 
add.l 
STILL 
bsr 

buf_rinc 



taddr 

d6.d7 
@nexc 

al,a2 
&addr, a 2 
#4,d5,d4 
STILLSKIP 
a0,d6,d7 



; BDF_GET 

; if 0 Che STOP 

; caddr=baddr 

; caddr+=addrs [1] 



; BUF_INC 



endm 

macro 
OCVOIDl 

move . 1 

add.l 

VOID 

endm 



&addr 

al,a2 

&addr,a2 

#4,d5 



caddr=baddr 
caddr+=addrsfl] 



Gss 



@next 



macro 

DOSTILLSENDl 



&addr 



buf^get 
beq.w 
move . 1 
add.l 
buf_gec 
beq. s 

VOID 
bra 

5TILLSEND 
bsr 

buf_rinc 



d6,d7 

©next 

al,a2 

&addr,a2 

d6,d7 

9ss 

#4,d5 
©next 

#4,d5,d4 

SS_SKIP 

a0,d6,d7 



; BUF_GET 

; if 0 the STOP *" 

; caddr=baddr 

;. caddr+=addrs ri] 

; BUF_GET 

; if 0 then stillsend 



BUF_INC 



endm 

D0STILL2 FUNC 

buf_rinc 
Jbuf_get 
bne. s 
rts 

@cont move.l 



EXPORT 

a0,d6,d7 

d6,d7 

©cent 



al,a2 



BUF.INC 
BUF_GET 
if 1 the CONT 



caddrsbaddr 
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add.l 
STILL 

swap 
exg 

buf.rinc 
DOSTILLl 
DOSTILLI 
DOSTILLl 
DOSTILLl 

swap 

exg 

res 
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ip*^Ic^^-, ; caddr + = addrs(0] 

s3,d5.d3 



d5 

d4,a5 

aO,d6,d7 
4(a3 ) 
8(a3) 
12 (a3) 
16 (a3) 

d5 

d4,a5 



BUF_INC 



@vd 



9ss 

(?rinc 
@next 



macro 
DOSENDl 

bu f_get 
beq. w 
move . 1 
add.l 
buf_gec 
beq. w 
buf_get 
beq. w 

SEND 

bsr 

bra 

VOID 
bra 

STILLSEND 
bsr 

buf _rinc 



&addr 

d6,d7 

@next 

al.a2 

&addr, a2 

d6,d7 

@ss 

d6,d7 

@vd 

#4.d5,d4 
SENDSKIP 
9rinc 

#4,d5 
@next 

#4,Q5.d4 
SS^SKIP 
a0,d6, a7 



BUF_GET 

if 0 the STOP 

caddr^baddr 

caddr+-addrs(l} 

BUF_GET 

if 0 Chen STILLSEND 

BUF_3ET 

if 0 then VOID 



BUF.INC 



D0SEND2 FUNC 



EXPORT 



@nxc 
Qconc 



bu ferine 
buf_get 
bne. s 
rts 

move . 1 

add.l 

buf_get 

beq.w 

buf_get 

beq.w 



a0,d6,d7 

d6,d7 

Qcont 



al,a2 
<a3) ,a2 
d6,d7 

d6,d7 
@vd 



BUF_INC 
BUF_GET 
if 1 Che CONT 



caddr=baddr 
caddr+=addrs [0] 
BUF.GET 

if 0 then STILLSEND 
BUF_GET 

if 0 then VOID 



SEND 



SEND 

buf_rinc 

DOSENDl 

DOSENDl 



#8,dl,d3 



a0,d6, 

4(a3) 

8(a3) 



d7 



BUF_INC 
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0SS 



DOSENDl 
DOSENDl 
res 

STILLSEND *** 
STILLSEND 



12 (a3) 
16(a3) 



#8,dl,d3 



buf_rinc a0,d6,d7 
DOSTILLSENDl 4 ( a3 ) 
DOSTILLSENDl 8(a3) 
DOSTILLSENDl 12 (a3) 
DOSTILLSENDl 16 ( a3 ) 
rts 



VOID 



@vd 



VOID 


#8,dl 


DOVOIDl 


4(a3) 


DOVOIDl 


8{a3) 


DOVOIDl 


12 (a3) 


DOVOIDl 


16{a3) 


rts 




ENDFUNC 




macro 




UVSTILLO 





Low_pass 

move . 1 
LPFSTILL 

Sub-band gh 

addg. 1 
bsr 

Sub-band hg 

sxibq.l 

add.l 

bsr 

Sub-band gg 

addq. 1 
bsr 
sub. 1 
addq. 1 

endm 



al,a2 

#4.d5.d2,d4 



#2,al 
DOSTILLO 



*2.al 
a4,al 
DOSTILLO 



#2,al 
DOSTILLO 
a4,al 
#6,al 



BUF.INC 



caddr=baddr 



baddr+=2 (gh band) 



baddr-=2 (hh band) 
caddr+=l' row (hg band) 



baddr+=2 (gg band) 

caddr-=l row (gh band) 
(2+) addr[0]+=x_inc 



macro 
UVSENDO 



Low_Pass 



bu ferine 

buf_gec 

beq.w 



a0,d6,d7 

d6,d7 

@subs 



BUF_INC 
BUF_GET 

if 0 then process subbands 
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move . 1 
SEND 

Sub-band gh 

@subs addq.l 
bsr 

Sub-band hg 

subq. 1 

add.l 

bsr 

Sub-band gg 

addq. 1 
bsr 
sub. 1 
a>3dq.l 

endm 
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tl'^l -.o •■ -aaar=baddr 

i4 , d5, d2 



#2,al 
DOSENDO 



#2,al 
a4,al 
DOSENDO 



#2,al 
DOSENDO 
a4,al 
#6,al 



Decoder functions: 
Klics2DlScill, Klics2DlSend 



baddr-^=2 (gh band) 



; baddr-=2 fhh band) 

; caddr+=l row (hg band) 



baddr+=2 (gg band) 

caddr- = l row ~(gh band) 
(2+) addr[0]-^=rx_inc 



Klics2DlScill FUNC 
Klics2DlSt:ill (shore 



EXPORT 

*dst» long size_x, 



dO/dl - spare 



long size_^, long Ipfbits, shore *nonns 



PS 


RECORD 


8 


dsc 


DS.L 


1 


size_x 


DS.L 


1 


si2e_y 


DS.L 


1 


Ipfbits 


DS.L 


1 


norms 


DS.L 


1 


ptr 


DS.L 


1 


data 


DS.L 


1 


bno 


DS.L 


1^ 




ENDR 




L3 


RECORD 


0, 


x_lim 


DS.L 


1 


^_linc 


DS.L 


1 


y_incO 


DS.L 


1 


y«incl 


DS.L 


1 


y_lim 


DS.L 


1 


LSize 


EQU 






ENDR 





X counter termination row_start-( 

X termination increment 1 row 

y counter increment 4 rows 

y counter increment 7 rows 

y coimter termination area 



d2 
d3 
d4 
d5 
d6 
d7 



step 0 (HH) 
step 0 
Ipfbits 
y-blk 

data (bic 



bno 



stream) 
(bit pointer) 
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aO 
al 
a2 
a3 
a4 
a5 



eiast 



- per 


(bit buffer) 


- baddr 


{block address) 


- caddr 


(coeff address) 


- x_lim 




- x_linc 




- y_incO 




link 


aS.iLS.LSize 


movem. 1 


d4-d7/a3-a5,-(a7 


Id Bit Buffer 


movs . X 


PS. data (a6 ) , aO 


move. 1 


(aO) ,d6 


move . 1 


PS.bno(a6) ,aO 


move , 1 


(aO) ,d7 


move . 1 


PS.ptr(a6) ,aO 


move . 1 


(aO) ,aO ' 


Up Block 


Counters 


move . 1 


PS.dst(a6),al 


move . 1 


PS.size_x(a6) ,dQ 


add.l 


dO,dO 


move . 1 


dO,LS.x_linc(a6) 


move . 1 


P3.si2e_y(a6) ,dl 


muls .w 


dO.dl 


add.l 


al,dl 


move. 1 


da,LS.y_lim{a6) 


move . 1 


d0,d2 


add.l 


dO,dO 


move . 1 


d0,d5 


dULA^ . X 




add.l 


dO.dO 


move . 1 


dO,LS.y.incO fa6) 


add.l 


dO,dO 


sub.l 


d2,dO 


move.l 


dO,LS.y_incl (a6) 


move.l 


PS. norms (a6) ,a2 


move. 1 


(a2),d2 


move.l 


4(a2),d3 


move , 1 


PS.lpfbits(a6) ,d4 


move . 1 


LS.x_linc(a6) ,a4 


move.l 


LS.y_incO (a6) ,a5 


move . 1 


a4.a3 


add.l 


al,a3 


UVSTILLO 




UVSTILLO 




add.l 


a5,al 


cmp. 1 


LS.y_liin(a6) ,al 


bge .w 


@last 


sub. 1 


#16, al 


UVSTILLO 




UVSTILLO 




sub. I 


a5*,al 


cnp . 1 


a3.al 


bit .w 


@x 


add.l 


LS.y_incl (a6) ,al 


cup. 1 


LS,y_lim(a6) , al 


bit .w 


ey 



locals 

store registers 



aO=&data 

daca=*aO 

aOr&mask 

inask=*aO 

aO=:&ptr 

aO=ptr 



alrimage 
dO=size_x 
in shorts 
x_linc=i row 
dl=si2e_y 
dl*=dO (area) 
dl+= image 
y_lijn=dl 
d2=dO (1 row) 
d0*=2 (2 rows) 
y_blk=dO 
y_blk-=x_blk 
dO*=2 (4 rows) 
y._incO=dO 
d0*=2 (8 rows) 
dO-=d2 (7 rows) 
y_incl=dO 

GetNorm pointer 
read normal 
read normal 
read Ipfbits 
read x_linc 
read y_incO 

x_lim=x_linc 
x_lim+=baddr 
process OV block 0,0 
process UV block 1,0 
(2) addr[0]+=y_inc 
(2+) addr[0] -limit? 
if half height 
pointer=blk(0, 1) 
process UV block 0,1 
process UV block 1.1 
(2) addr CO] +=y_inc 

(2+) addr [0] -limit? 
(4) if less then loopX 
(2 + ) addr [ 0 ] +=y_inc 
(2+) addr[0] -limit? 
f4) if less then loopY 
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Save Bic Buffer 

move . 1 
move.l 
move . 1 
move . 1 
move . 1 
move . 1 

movem. 1 
unlk 
rts 

ENDFUNC 



PS.daca(a6) . a2 
dS, (a2) 
PS.bno(a6) , a2 
ci7, {a2) 
PS.ptr (a6) ,a2 
aO, (a2) 

{a7)+,d4-d7/a3-a5 
a6 



spare=&data 
update data 
spare=&bno 
update bno 
spare=&ptr 
update ptr 

restore registers 
remove locals 
return 



Klics2DlSend FUNC 
Klics2DlSend { shore 



EXPORT 



'dst. long size_x, long size_y, short •norms, unsigned long 



PS 


RECORD 


8 


dst 


DS.L 


1 


si2e_x 


DS.L 


1 


si2e_y 


DS.L 


1 


norms 


DS.L 


1 


ptr 


DS.L 




data 


DS.L 


1 


bno 


DS.L 


1 




ENDR 




LS 


RECORD 


0, 


x_lim 


DS.L 


1 


x.linc 


DS.L 


1 


y_incO 


DS.L 


1 


y_incl 


DS.L 


1 


Y-lim 


DS.L 


1 


LSize 


EQU 


« 




ENDR 





DECR 



X counter termination row_start + 

X termination increment 1 row 

y coxinter increment 4 rows 

y counter increment 7 rows 

y counter termination area 



dO/dl - spare 





d2 


- step 0 


(HH) 




d3 


- step 0 






d4 


- y_incO 






d5 


- y_blk 






d6 


- data 


(bit stream) 




d7 


- bno 


(bit pointer) 




aO 


- ptr 


(bit buffer) 


* 


al 


- baddr 


(block address) 


» 


a2 


- caddr 


(coeff address) 


* 


a3 


- x.lim 




a4 


- x_linc 




• 


a5 


- y_lim 








link 


a6, #LS.LSi2i 



movem , 1 

Load Bit Buffer 

move , 1 
move . 1 
move . 1 
move . 1 



d4-d7/a3-a5, -(a7) 



PS.daca(a6) , aO 
(aO) ,d6 

PS.bno (a6) , aO 
(aO) ,d7 



locals 

store registers 



aO=&data 
data=:*aO 
aO^&mask 
mask=*aO 
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move. 1 
move. 1 



PS.ptr(a6) ,aO 
(aO) ,aO 



Sec Op Block Coiinters 



move . 1 
move . 1 
add.l 
move . 1 
move . 1 
muls. w 
add.l 
move . 1 
move. 1 
add.l 
move . 1 
STibg. 1 
add.l 
move . 1 
add.l 
sub. 1 
move . 1 

move. 1 
move . 1 
move . 1 
move , 1 
move . 1 
move . 1 

@y move . 1 

add.l 
8x UVSENDO 

UVSENDO 

add.l 

cmp.l 

bge.w 

sub.l 

UVSENDO 

UVSENDO 
Glast sub.l 

cmp. 1 
blew 
add.l 
cmp. 1 
bit .w 

* Save Bit Buffer 



PS. dst(a6) ,al 
PS. size_x(a6) .do 
do, do 

d0,LS.x_linc(a6) 

PS.si2e_y(a6),dl 

d0,dl 

al.dl 

dl,LS,y_lim(a6) 

d0,d2 

dO,dO 

d0,d5 

#4,d5 

dO,dQ 

dO, LS.y_incO (a6) 

dCdO 

d2,d0 

d0.LS.y_incl{a6) 

PS.norms(a6) .a2 

(a2),d2 

4(a2).d3 

LS.^linc(a6) ,a4 
LS.y_incO(a6) ,d4 
LS.y_lim(a6) .a5 

a4,a3 
al,a3 



d4,al 
a5,al 
©last 
#16. al 



d4.al 

a3,al 
0x 

LS.y_incl(a6) .al 

aS.al 

@y 



aO=&pcr 
aO=ptr 



; al= image 

; dO=size_x 

; in shorts 

; x_linc=l row 

; dl=size_y 

; dl*=dO (area) 

; dl+= image 

; y_lim=dl 

; d2=d0 (1 row) 
; do* =2 (2 rows) 
; copy to d5 
; subtract xjblk 
; d0*=2 (4 rows) 
; y_incO=dO 
; d0*=2 (8 rows) 
; dO-=d2 (7 rows) 
; y_incl=dO 

; GetNorm pointer 

; read normal 

; read normal 

; read x_linc 

; read y_incO 

; read y_lim 

; x_lim=x_iinc 

; x_liin+=baddr 

; process ov block 0.0 

; process UV block 1,0 

; (2) addr(0]-t-=y_inc 

; (2) addr[0] -limit? 

; if half -height 

; pointer=blk(0. 1) 

; process UV block. J3,l 

; process UV block 1,1 

; ( 2 ) addr i 0 ] + =y.inc 

; (2) addr [0] -limit? 

; (4) if less then loopX 

.- (2+) addr [0]-^=y_inc 

; (2) addr [0 J -limit? 

r (4) if less then loopY 



move , 1 


PS.data{a6) .a2 


move . 1 


d6, (a2) 


move . 1 


PS.bno(a6) ,a2 


move . 1 


d7. (a2) 


move . 1 


PS.ptr(a6) ,a2 


move . 1 


aO. (a2) 


movem . 1 


(a7)+,d4-d7/a3-a5 


unlk 


aS 


rts 




ENDFUNC 





spare=&data 
update data 
spares ibno 
update bno 
spare=&ptr 
update ptr 

restore registers 
remove locals 
return 
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:<Lics3D2Scill FUNC EXPORT 







PS 


RECORD 


dsc 


DS.L 


size_x 


DS.L 


size_y 


DS.L 


Ipfbics 


DS.L 


norms 


DS.L 


Ptr 


DS.L 


data 


DS.L 


bnc 


DS.L 


sub_cab 


DS.L 


» 


ENDR 


LS 


RECORD 


y_blkO 


DS.L 


y_blkl 


DS.L 


x_inc 


DS.L 


x_liin 


DS.L 


x_linc 


DS.L 


y_inc 


DS.L 


y-iim 


DS.L 


LSize 


EQU 




ENDR 



0 , DECR 



dO/dl - spare 



d2 


- step 


2HH 


d3 


- step 


± 


d4 


- step 


0/lpfbits 


d5 


- y_blkO,y_blkl 


d6 


- data 


(bit stream) 


d7 


- bno 


{bit pointer) 


aO 


- ptr 


(bit buffer) 


al 


- baddr 


(block address) 


a2 


- caddr 


(coeff address) 


a3 


- addrs 


(tree addresses) 


a4 


- x_lim 


(x counter termination) 


a5 


- Ipfbi 


ts/step 0 



link 
movem. 1 

Load Bit Buffer 

move . 1 
move . 1 
move . 1 
move . 1 
move . 1 
move . 1 



a6, #LS. LSize 
d4-d7/a3-a5, - 



(a7) 



PS. data (a6) 
(aO) ,d6 
PS.bno(a6) , 
(aO) ,d7 
PS.ptr (a6) , 
(aO) ,aD 



, aO 



aO 



aO 



y inter-block increment 2 rows - 4 

y inter-block increment 4 rows - 8 

X counter increment 16 

X coxinter termination row_start + 

X termination increment 1 row 

y counter increment 7 rows 

y counter termination area 



locals 

store registers 



aO=&data 

data=-aO 

aO=&mask 

mask=*aO 

aO=&ptr 

aO=ptr 



Set Up Block Counters 



move.l PS.dst(a6) ,al 

move .1 PS . size„x {a6 ) , dO 

move .1 # 1 6 , LS . x_inc ( a 6 ) 

add .1 dO , do 

move .1 do , LS . x^linc ( a6 ) 

move.l PS.size^y (a6) ,dl 

muls.w dO.dl 



alsimage 
dO=size_x 
save x_inc 
in shorts 
x_linc=l row 
dl=size_y 
dl*=dO (area) 
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add.l 
move . 1 
move . 1 
add.l 
move . 1 
subq. 1 
move . 1 
add.l 
add.l 
move. 1 
subg.l 
move . 1 
add.l 
move. 1 

move , 1 
move . 1 
move . 1 
move . 1 
move , 1 
swap 
move . 1 
move .w 
move . 1 

move . 1 
add.l 



Low_Pass 



move.l 
LPFSTIIi 

* Sub-band gh 

bsr 
add.l 

• Sub-band hg 

bsr 
add.l 

Sub-band gg 

bsr 
sub. 1 

add.l 
cmp. 1 
bit .w 
add.l 
cmp. 1 
blt.w 

Save Bit Buffer 



Send 



move. 1 
move . 1 
move. 1 
move. 1 
move.l 
move . 1 



al,dl 

dl,LS.y_lim(a6) 

d0,d2 

do, do 

d0,d5 

#4,d5 

d5,LS.y_bl]c0(a6) 

d0,d2 

dCdO 

d0,d4 

#8,d4 

d4,LS.y_blkl(a6) 
d2,d0 

dO,LS.y_inc(a6) 

PS. norms (a6) ,a2 
(a2) ,d2 
4(a2) ,d3 
8(a2) ,a5 

PS.lpfbits(a6) ,d4 
d5 

LS.y_blkl(a6),d0 
d0,d5 

PS.sub_tab(a6),a3 

LS.x.linctae) ,a4 
al,a4 



al,a2 

#8,d5,d2,d4 



D0STILL2 
#20, a3 



D0STILL2 
#20, a3 



D0STILL2 
#40, a3 

#16, al 

a4,al 

@x 

I*S.y_inc{a6) ,al 
^.y_lim{a6) ,al 

ey 



PS.daca(a6) ,a2 
d6, (a2) 

PS. bno(a6) ,a2 
d7, <a2) 

PS.ptr(a6),a2 
aO, (a2) 



; dl+z: image 

; y-.lim=dl 

; d2=d0 (1 row) 

; d0'=2 (2 rows) 

; copy to d5 

; y_bl)c: subtract x_blk 

; save y_blk0 

; d2+=d0 (3 rows) 

; d0*=2 {4 rows) 

; copy to d5 

; y_blk: subtract x blk 

; save y_blkl 

; d0+=d2 (7 rows) 

; y.incsdO 

; GetNorm pointer 
7 read normal 
; read normal 1 
; read normal 0 
; read Ipfbits 
; y_blk=0OXX 
; read y_blkl . 
; d5=:y_blk0/l 
; a3=addrs 

; x_lim=x_linc 
; x_liin+=baddr 



caddr=baddr 



(2) addrfO]+=x_inc 
(2) addr[0} -limit? 
(4) if less then loopX 
(2+) addrI0]+=y_inc 
(2+) addrfOJ -limit? 
(4) if less then loopY 



spare=&data 
update data 
spares &bno 
update bno 
spare=&ptr 
update ptr 
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Page 18 



movem. 1 

iinlk 

res 

ENDFUKC 



(a7)^,d4-d7/a3-a5 
d6 



restore registers 
remove locals 
return 



Klics3D2Send 



FUNC 



EXPORT 



Klics3D2Send( Short ^dst, long si2e_x, long size_y, short *norTns, consigned long 



PS 


RECORD 


8 


dst 


DS.L 


1 


si2e_x 


DS.L 


I 


si2e_y 


DS.L 


1 


norms 


DS.L 


1 


Ptr 


DS.L 


1 


data 


DS.L 


1 


bno 


DS.L 


1 


sub_tab 


DS.L 


1 




ENDR 




LS 


RECOPD 


0 


y.blkO 


DS.L 




y_blkl 


DS.L 


1 


x_inc 


DS.L 


1 




DS.L 




x_linc 


DS.L 


1 


y_inc 


DS.L 


1 


X-lim 


DS.L 


1 


LSize 


EQU 


» 




ENDR 





DECR 



do 


- spare 




di 


- y_blkl 




d2 


- step 2HH 


d3 


- step 1 




d4 


- step 0 




d5 


- y_blkO 




d6 


- data 


(bit streain) 


d7 


- bno 


(bit pointer) 


aO 


- ptr 


(bit buffer) 


al 


- baddr 


(block address) 


a2 


- caddr 


(coeff address) 


a3 


- addrs 


(tree addresses) 


a4 


- x_liin 


(x counter termination) 




link 


a6,#LS. LSize 




movem, 1 


d4-d7/a3-a5, - (a7) 


Load Bit Buffer 




move . 1 


PS.data(a6) , aO 




move . 1 


(aO) ,d6 




move . 1 


PS.bno(a6) ,aO 




move . 1 


<aO) ,d7 




move . 1 


PS.ptr (a6) ,aO 




move . 1 


(aO) ,aO 


Set 


Up Block 


Counters 




move . 1 


PS.dsc (a6) ,al 





y 


inter-block increment 


2 rows - 


- 4 




y 


inter-block increment 


4 rows • 


- 8 




X 


counter increment 


16 






X 


councer terminacion 


row_start+ 




X 


termination increment 


1 row 






y 


counter increment 


7 rows 






y 


counter termination 


area 





locals 

store registers 



aO=:&data 

daca-*aO 

aOsficmask 

mask=*aO 

aOs&ptr 

aO=ptr 



al= image 



wo 94/23385 



PCT/GB94/00677 



-675 - 



Engineering : XlicsCode rCompPict: : KiicsDec2 . a 



move. 1 
move . 1 
add.l 
move , 1 
move. 1 
muls. w 
add.l 
move. 1 
move . 1 
add.l 
move . 1 
subq.l 
move . 1 
add.l 
add.l 
move . 1 
subq.l 
move , 1 
add.l 
move . 1 

move. 1 
move . 1 
move. 1. 
move . 1 
move. 1 
move - 1 

move . 1 
add.l 

Low_Pass 

buf.rinc 
buf_gec 
beq.w 
move, 1 
SEND 

Sub-band gh 



@subs 
* 

* Sub -band hg 



bsr 
add.l 



bsr 
add.l 

Sub -band gg 

bsr 
sub.l 

add.l 
cmp. 1 
blt.w 
add.l 

CITlp . 1 

blt.w 



PS.si2e_x(a6) ,dO 
#16,LS.x_inc(a6) 
dO.dO 

dO,LS.x_linc(a6) 
PS.size^y (a6) ,dl 
dO.dl 
al,dl 

dl,LS.y_liin(a6) 

d0,d2 

do, do 

dCdS 

#4,d5 

d5,LS.y_blkO(a61 

d0,d2 

do, do 

d0,d4 

#8,d4 

d4,LS.y_blkl(a6) 
d2,dO 

dO,LS.y_inc(a6) 

PS. norms (a6) ,a2 
(a2) ,d2 
4(a2),d3 
8(a2) ,d4 

LS.y_blkl(a6) ,dl 
PS. sub_tab(ao) »a3 

LS,x_linc(a6) ,a4 
al,a4 



a0,d6,d7 
d6,d7 
@subs 
al, a2 
#8,dl,d2 



D0SEND2 
#20. a3 



dose>:d2 

#20, a3 



D0SEND2 
#40,a3 

#16, al 
a4,al 

LS.y_inc(a6) ,al 
LS.y_liin(a6) ,al 
@y 



; d0=size_x 

; save x_inc 

; in shorts 

; x_linc=l row 

; dl=size_y 

; dl*=dO (area) 

; di+=image' 

; y_lim=dl 

; d2=d0 (1 row) 

; dO*=2 {2 rows) 

; copy to d5 

; y_blk: subtract xjblk 

; save y_blkO 

; d2+=dO (3 rows) 

; d0*=2 (4 rows) 

; copy to d5 

; y_blk: sxibtract x_blk 

; save y_blkl 

; d0i--d2 (7 rows) 

; y_inc=dO 

; GetNorm pointer 

; read normal 

; read normal 1 

; read normal 0 

; read y.blkl 

; a3=addrs 

; x_lim=x_linc 
; x_l im+ =baddr 



; BOF^INC 

; BUF.GET 

; if 0 then process subbands 

; caddr=baddr 



(2) addr[0]+=x_inc 
(2) addrCO] -limit? 
(4) if less then loopX 
(2+) addr[0)+=y_inc 
(2+) addrfO] -limit? 
(4) if less then IcopY 



Save Bit Buffer 



wo 94/23385 



PCT/GB94/00677 



- 676 - 

Engineering; :<licsCcde:CcinpPicc :KiicsDec2 . a 



3 end 



move - i 
move . 1 
move . 1 
move . 1 
move. 1 
move . 1 


PS. data (a6) , a2 
d6 » (a2 ) 
PS.bno(a6) , a2 
d7, (a2) 
PS.ptriaS) ,a2 
aO, (a2) 


; spare=&data 
; updace daca 
; spare=&bno 
; updace bno 
; spare=&pcr 
; updace per 


movem. 1 

unlk 

res 


(a7)+.d4-d7/a3-a5 
a6 


; rescore regiscers 
; remove locals 




; re cum 


ENDFUNC 






END 







wo 94/23385 



PCT/GB94/00677 



- 677 - 

Engineering: KlicsCode:Comp?ict:KlicsDec.c 



* ©Copyright 1993 KLICS Limited 
Ail rights reserved. 

* Written by: Adrian Lewis 



^ Importing raw Klics binary files 
Stand-alone version 



#include 'BitsS.h' 
finclude 'Klics. h' 



ffinclude 'KlicsHeader . h- 
cypedef char Boolean; 
/* If bool tnie the negate value v 

#defxne negif (bool, value) { (bool) ?- (value ): (value) ) 
extern void HaarBaOcward ( ) ; 

extiS void ^e^TopB^^ *<^ata^inr: size[2J,int oct.src) ; 

extern void ^lltBac^a^f ^hl^^^^^ *daca.int size[2],int oct.src) ; 
extern void klicI^^^t f k""^ •data.znt size£2],int oct.src); 

^^i^ ^^^"^^ 

/* Huffman decode a bloc)c */ 
ffdefme Huf f DecLev( lev, buf ) \ 
lev[0]=HuffDecode(buf ) ; \ 

\ 



levfl] =Huf f Decode (buf) ; 
levt2]=HuffDecode(buf 1 • 
lev [3 ] =Huff Decode (buf ) ] 



/* Fixed length decode bloc)c of integers */ 
#defxne IntDecLev(lev,lpf.bits,bu?) \ 

levfO =intDecode('lpf_bits,buf ) ; \ 

le V 1 ] = int Decode ( Ipf _bi ts , buf ) ; \ 

lev[2 l=tntDecode(lpf. bits, buf ) ; \ 

lev[3]=rntDecode(lpf.bits.bue) ; 

/* Reverse quantize difference bloc)^ v 
*def ane RevOntDelta (new, old, lev, shift ) \ 

new[2)=old 2^ lev 2 <<sM^^ (l«shif t) -l»l) : O) \ 

/* Reverse quantize block ♦/ 
ffdefme Re vQnt (new, lev, shift ) \ 

new[2 = lev 2 :«hi£oI llv 2 \ 

?de£ine RevOncLPF (new, lev, shift ) \ 

new 1 = iev[l]«shift) + ((i«shifc)-l»i) \ 
new[2J = (levr2I«shift).((l«shi£c)-l»l : \ 
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new[3] = (iev(3]<<shif t ) + ( (i«shifc) ; 

/* Read a difference block and updace memor/ '/ 

Huf fDecLev(lev,buf ) ; \ 
RevQntDelta (new, old, lev. shift) \ 
PucDataiaddr. new.dst) ; \ 
mode [ occ ] =occ == 0 ?M_STOP : nmode ; 

/* Read a block and update memory */ 

#def ine DoXf er (addr , new, lev, dsc , shi ft . mode , occ , nmode, buf ) \ 
Huf fDecLev(lev,buf ) ; \ 
Re vQnc (new, lev, shift) \ 
PutDaca(addr,new,dsc) ; \ 
mode ( DC t J =occ == 0 ?M_STOP : nmode ; 

/* Function Name: IntDecode 

* Description: Read a integer from bit file 

• Arg\iinents: bits - bits/ integer now signed 
Returns: integer value 

*/ 

short IntDecode ( short bits, Buf buf) 

int i, lev=0, mask=l; 

Boolean sign; 

/• Hardware compatatble version ♦/ 
buf_rinc(buf ) ; 
sign=buf_get (buf ) ; 
for (i=0;i<bits-l; 1+^-) ( 
buf_rinc(buf ) ; 

if (buf_get(buf ) ) lev 1= mask; 
mask «= 1; 

) 

if (sign) lev= -lev; 
^ return (lev) ; 

/* Function Name: HuffDecode 

* • ^^^^ ^ Huffman coded integer from bit file 

Returns: integer value 

short HuffDecode (Buf buf) 
{ 

short lev=0, i; 
Boolean neg; 

/' Hardware compatatble version •/ 

buf_rinc(buf ) ; 

if (buf_get (buf ) ) ( 

buf_rinc(buf ) ; 

neg=buf _get (buf ) ; 

do ( 

buf_rinc(buf ) ; 
leV'*-+; 

) while (lev<7 &t ! (buf^gec (buf ) ) ) ; 
if ( 1 (buf.get (buf ) ) ) ( 

for(lev=0, i=0;i<7;i+^.j ( 

lev<<=l ; 

buf.rinc (buf ) ; 
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} 



) 

lev+=8; 

) 

if (neg) lev= -lev 

} 

recumdev) ; 
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if (buf_gec(buf ) ) lev++; 



/* Function Name: KlicsDChannel 
* Description: Decode a channel of image 
^ Arguments: dst - destination memory (and old for videos) 

octs. size - octaves of decomposition and image dimensions 

normals - HVS weighted normals 
*/ Ipf-bits - no of bits for LPF integer (image coding only) 



void 



ad^."^e^ ="P=2«occs, blk[4], mode[4], base_,node= (fnnh-> 



int _ ^ ^ 

Blk addr, new, old, lev; 

for(y=0;y<size[l) ;y+=step) 

for (x=0;x<size{oj ;x+=step) 

for (sub=0; s\ib<4;sub++) ( 

mode [ Oct =oct s - 1 ] =base^ode ; 

if (sub==0) mode(oct=octs-l] 1= M_LPF; 

mas)c=2«oct; 

do { 

GetAddr(addr,x,y, s\ib.oct, size, mask) ; 
switch (mode [oct J ) { 
case M_VOID: 

GetData(addr,old,dst) ; 
if (BlkZero(old) ) mode [oct] =M_STOP; 
else { DoZero(addr, dst, mode, oct) ; ) 
break; 
case M_SEND|M_STILL: 
bu ferine fbuf ) ; 
if (buf_get(buf )) { 
buf_rinc(buf ) ; 
if (buf_get (buf ) ) { 

DoZero (addr, dst , mode, oct) ; 
} else { 

^ Doxf er (addr , new, lev, dst , f rmh->quant izer [octs-oct } , mode , oct , M.S" 

) else 

mode [oct ] =M_STOP ; 
break; 
case M_SEND: 

buf_rinc(buf ) ; 
if (buffet (buf ) ) ( 
buf_rinc(buf ) ; 
if (buf_get (buf ) ) { 
buf_rinc(buf ) ; 
if (buf_get(buf ) ) { 

GetData(addr,old,dst) ; 
) e;Ls°^j®^°®-^'^^^^^^'*^^^'"s^'lev.dst, frmh->quantizer (octs-oct] 

^ DoZero ( addr , ds t , mode , oc t ) ; 

} else ( 

DoXf er ( addr , new, lev, dst , f rmti ->quantizer [oct s-oct ] ,mode, oct , M_s: 
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) 

J else 

mode [oct ) =M_STOP; 
break; 
case M_STILL: 

buf_rinc(buf ) ; 

if (buf^gec (buf ) ) { DoXfer (addr. new. lev^dsc , fnnh->quanci2er{octs-occ J 
else mode(oct:]=M_STO?; 
break; 
case M_LPFIM_STILL: 

IntDecLevdev, seqh->precision-f nnh->quancizer [0 } , buf) ; 
RevQntLPF (new, lev, f rTTih->guancizer [ 0] ) ; 
PucData(addr,new,dsc) ; 
mode [oct ] =M_QUIT ; 
break; 
case M_LPF|M_SEND: 
buf_rinc(buf ) ; 
if (buf_get {buf ) ) { 

GetData(addr,old,dsc) ; 

Huf f DecLev ( lev, buf ) ; 

RevQntDelca(new,old,lev. f nnh->quancizer [0] ) ; 
PutData { addr , new , ds C) ; 

> 

mode t oct ] =M_QUIT ; 
break; 

) 

switch (mode [oct ] ) { 
case M_STOP: 

StopCounters (mode, oct , mask, blk, x,y, octs ) ; 

break; 
case M_QUIT: 

break; 
default : 

DownCoxinters (mode, oct, mask, blk) ; 
break ; 

} 

) whil e ( mode [ oct ] ! =M_QUIT ) ; 

} 

""^^^^i - ^^^^s^ecUVOhort -dst, int octs, int si2e[2], KlicsFrameHeader *frmh. 
^ KlicsSeqHeader *seqh, Buf buf) 

int oct, mask, x, y, X, V, sub. step=4«octs, blk(4], mode[4I. base mode= t 

BiJc addr, new, old, lev; ~ 

for (Y=0;Y<si2e(i) ; Y+=step) 

for (X=0;X<si2e[0] ;X-h = step) 

for (y=Y;y<size[l] && y<Y+step;y+=step»l ) 

for (x=X;x<size(0] && x<X+step;x+=step»l ) 

for ( sub=0 ; sub<4 ; siib++ ) { 

mode[oct=octs-l] =base_mode; 

if (sub==0) mode[octs:oct3-l] 1= M_LPF; 

mask=2<<oct ; 

do ( 

Ge t Addr (addr ,x,y, sub, oct , size, mask) ; 
switch ( mode ( oct ] ) ( 
case M^VOID: 

GetData(addr,old,dst ) ; 

if (BlkZero(old) ) modefoct 1 =M_STOP; 

else ( DoZero (addr, dst, mode, oct ) ; ) 

break; 
case M_SENDIM_STILL: 
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buf_rinc{buf ) ; 

if (buf_gec {buf ) ) { 

buf_rinc{buf ) ; 

if (buf_gec(buf ) ) { 

DoZero(addr, dst ,mode, oct ) ; 

} else ( 

^ DoXfer (addr,new, lev, dsc , f rmh->quancizer [occs-oct 3 , mode , occ , M_S 

} else 

mode [oct I =M_STOP ; 
breaks- 
case M_SEND: 

buf_rinc(buf ) ; 
if (buf_get(buf ) ) ( 
buf_rinc(buf ) ; 
if (buf_gec(buf ) ) ( 
buf_rinc (buf ) ; 
if (buf_gec(buf ) ) { 

GetData(addr,old,dst) ; 

DoXf erDelta (addr, old, new, lev,dsc, frmh->quanci2er [octs-oct 1 
) else { 

Do2ero(addr,dsc,mode,occ ) ; 

} 

} else { 

^ DoXf er { addr , new, lev , dst , f rmh- >quant izer [ octs-oct ) , mode , occ » M_S 

} else 

modeCoct] sM^STOP^- 
break; 
case M.STILL: 

buf_rinc(buf ) ; 

if (buf_get (buf ) ) { DoXfer f addr , new, lev, dsc , frmh->C3[uant izer [octs-oct 1 ,i 

else mode [oct] =M_STOP ; 
break; 
case M_LPF|M_STILL: 

IntDecLev(lev,seqh->precision-frnih->guanti2er[0] ,buf ) ; 

RevOntLPF(new,lev,frmh->quanti2erC03 ) ; 

PutData(addr,new,dst) ; 

mode ( oct ] =M_QOIT ; 

breaks- 
case M_LPFIM_SEND: 

buf_rinc (buf ) ; 

if (buf_get (buf ) ) { 

GetData (addr, old. dst) ; 
HuffDecLevdeVsbuf ) ; 

RevQnt Delta (new, old, lev, f rmh- >quant izer [0] ) ; 
Put Da t a ( addr , ne w , ds t ) ; 

} 

mode [oct ] =M_QOIT; 
break; 

} 

switch (mode [oct ] ) ( 
case M.STOP: 

St opCount ers (mode , oct , mask, blk, x , y , oct s ) ; 

break ; 
case M^QUXT: 

breaks- 
default : 

DownCounters (mode, oct, mask, blk) ; 
break; 

} 

) while (mode [oct] !=M_QaTT) ; 
} 
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/• Function Name: KlicsDecoce 

Description: Decode a frame to Yuv (de) trans fonned image 
src - destination result 

wh^rho^'^^^^^f"^'^ destination memory (and old for videos) 
whether this frame was skipped 



Arguments : 
Returns : 



extern void 

extern void 

extern void 

extern void 

extern void 

extern void 



#define flag_tree 0x1 
^define flag_wave 0x2 



!^T^?fL'^u°^^ area); 

KI.ICS2DlSEm.(s»orc -dsc. Ion, size.x. long s»orl nSJSl?j | 



void 
{ 



KlicsDecode( short -srcOl, short -dst[3], KlicsSeqHeader *seqh, KlicsFrameH 
iong channel, i; 
short norms [4] [2] ; 
unsigned long syncl, sync2; 

for(i=0;i<4;i++) { 

norms fij 1 0) = { l«f rmh->c3uantizer [ i) -l) - 1 • 
^ normsd] f l]=frmh->quanti2er [i] ; 

buf.rinit (buf ) ; 

if (0!=(flags&flag_tree) ) f 

syncl=GetTimerValue(&syncl) ; 

for(channel=0;channel<seqh->channels;channel^*) ( 

si2er2)={seqh.>sequence si2e[0]>>(channel==0?0:seqh->sub sampl 

octs=seqh->octaves (channel==O?0 : 1>; 



sifdef HQ 



#eise 



#endif 



if (0! = (frmh->flags&KFH_IirrRA) ) 

KLTr^J^^xm^f^i^^f^®^^'^'^^^-=^=^f03*tree.size[l]) ; 

long ^"b-"b[15]=(4.2 10 2*8-cree_size(0],l0*8-cree_siEe(0], 
if tO!=(frmh->flags4KFH_INTRA) ) C 

else'^'''"°^^''''' ' ' ' "«e-"2e ( 0 J , tree.size ( 1 ) , ( long ) ( se 

) else ^''^"^°""^^'^"f=^""«l'-"«s-s"e(0).cree_size[l), (long)(se. 
if (octs=s3) 

^^^^KLICS3D2SEND(dsc [chaimel] , cree.size ( 0 ] , cree_size [1] , tnorms. ibu 
KLICS2D1SEND (dsc [channel] . cree.size CO ) . cree.size [ 1) , &nonns, ibu 



sync2=GetTimerValue (&sync2 ) , 
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* t: r ee = syTic2 - sync 1 ; 

) 

if (0!=(f lags&flag_wave) ) { 

sy nc 1 =G e t TimerValue (ficsyncl) ; 

f or (channel=0; channei<seqh->channels ; channel ++) { 

int size [2 ] = { seqh-> sequencers ize [0] >> (channel ==0?0 : seqh->sub_sainpi 

seQh->sequence_si2e f 1} >> (channel==0?0 : seqh->sub_sanipie[l 1 ) 
wave_size[2]= {size [0] »scale (1] , size [1] >>scaie [1} } , 
occs=seqh->octaves [channel==0?0 : 1] ; 

switch (seqh-> wave let) { 
case WT_Haar: 

if (scale[l)>scale(0]) 

KLHALF(dsc [channel] , src [channel] , wavers ize [0] ,wave„size(l] ) ; 

else 

KIiCOPY{dsc [channel] , srcf channel] , wave_size[0] *wave_si2e [1] ) ; 
HaarBackward( src (channel) ,wave_si2e, oct s- scale [1] ) ; 
break ; 
case WT_Daub4 : 

if {scaleCO]==0) { 

if (scale[l)>scale[0}) 

KLHALF(dst (channel] , src [channel] , wave_size[01 , wave_size { 1] 

else 

KLCOPYtdst [channel] , src [chcinnel] , wave.size [0] •wave.size [1] 
Daub4Backward( src [channel] , wave_size, octs-scale [ 1] ) ; 
) else 

if (channel==0) { 

KLCOPY (dst [channel] , src (channel] , wavers ize [0] *wave_size( 1] 
Backwards 5 11 (src [channel] , wave_size, octs- scale [1] ) ; 
) else 

TOPBWD( dst [channel] , src [channel] , wave^size [0] # wave_size [1] 

break; 

> 

) 

sync2=GetTimerValue(fitsync2) ; 

* wave= sync2 - sync 1 ; 

) 

} 
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/ 

' © Copyright 1993 KLICS Limited 
' All rights reserved. 

* Written by: Adrian Lewis 



* Klics Codec 
r/ 

^include " ImageCodec .h* 
tinciude <FixMath.h> 
# include <Errors,h> 
^include <Packages.h> 

#ifdef PERFORMANCE 
# include <Perf.h> 

extern TP2Perf Globals ThePGlobals; 
ffendif 

#ifdef DEBUG 

#define DebugMsg ( val ) DebugStr (val ) 
seise 

tdefine DebugMsg (val) 
ffendif 



Mefine WT_Haar 0 
* define WT_Daub4 1 

#define None 0 

#define Use8 1 

#define Usel6 2 

#define Use32 3 

#define UseF32 4 

/• Version information */ 

f'define KLICS_CODEC_REV 1 

iFdefine codeclnterf aceVersion 1 high word returned in component Gecversion 

f^def ine klicsCodecFormatName "Klics- 
#define klicsCodecFormatType 'klic 

pascal ComponentResulc 

KlicsCodec (CoitponentParameters *params,char *»storage); 

pascal ComponentResulc 

KLOpenCodec (Component Instance self ) ; 

pascal ComponentResult 

KLCloseCodec (Handle storage, Cortqsonent instance self); 

pascal ComponentResult 

KLCanDoS elect or (short selector); 

pascal ConponentResult 
KLGetVersion( ) ; 

pascal ComponentResult 

KLGetCodecTnfo (Handle storage, Codeclnfo *infn); 
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pascal ComponentResult 

'''^To'^^^'Zltli^^ltl^^^^^ -.c^ec. Shore 

pascal CorrponentResulc 

pascal ComponentResult 

KLPreCompress (Handle storage, register CodecConpressParams *p) ; 
pascal long 

KLPreDecompress (Handle storage, register Code cDecompress Par ams *p) ; 
pascal long 

KLBandDecon^^ress (Handle storage, register CodecDeconpressParams ^p) ; 
pascal long 

KLBandCompress (Handle storage, register CodecCompressParams *p) ; 
pascal ComponentResult 

KLGetCompressionTime (Handle storage, PixMapHandle src, const Rect *srcRect short d^o 

CodecQ •spatiaiOuality.CodecQ ^teirporalQuali^y, unsigned long ^tL;!?? 
/* Function: KlicsCodec 

Description: KlicsCodec main despatcher 

#ifdef DECODER 

pascal ComponentResult 

#eisl^^*''^'^^'''^°"^°''^''^^"^^^^''^ *params,char -storage) 

^ifdef ENCODER 

pascal CoirponentResult 

#6136^''°'^^''^^°"^°"^"'^^^''^^^^''^ *params,char -^storage) 
pascal ComponentResult 

#endif'^^^^*^^"^'''^^^^^^''^^^^''^ •Params.char **storage) 

sendif 

( 

OSErr err ; 

switch ( params->what ) { 
case JcComponent Opens elect : 

err=CallComponentFunction{params, (ComponentFunction) KLOpenCodec) ; breaks- 
case kConponentCloseSelect : 

err=CallComponencFunctionWithStorage(storage,paraiiis, ( Component Funct ion )KLC 
case kCornponentCanDoS elect : 

err=CallComponentFunction(params, (ComponentFunction)KLCanDoSelector ) ; brea 
case kComponentVersionSelect : 

err=CallComponentFunction(params, (ComponentFunct ion) KLGet Vers ion) ; break; 
#ifd6f DECODER 

case codecPreCon^ress : 
case codecBandCompress: 

errscodecUnimpErr; break; 

#else 

case codecPreCompress : 
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err=CallCoinponenrFunccionWichStorage (storage, params, (ConponencFunccion)KLP 

case codecBandCompress: 

err =Ca 1 LComponencFuncc ionWi chSc orage ( storage » params , ( Componenc Funct ion ) KL3 

5 end if 

sifdef ENCODER 

case codecPreDeconpress : 
case codecBandDecompress : 

err=CGdecUniinpErr; break; 

^else 

case codecPreDecoinpress : 

err=CallCoinponentFimctionWithStorage( storage, params, (CornponentFunction)KLP 

case codecBandDecompress : 

err=CallCoiTponencFunctionWithStorage( storage, params, {ComponentFunction)KLB 

Sendif 

case codecCDSequenceBusy : 

err=0; break; /* our codec is never asynchronously busy 

case codecGetCodecInfo: 

err=CallComponentFunctionWichStorage (storage, params, (ComponentFunction) KLG 

case codecGetCompressedlmageSize: 

err=CallComponentFunctionWithScorage( storage, params, (CoinponentFunction) KLG 

case codecGetMaxCompressionSize : 

err=CallCorrponenCFunccionWirh£torage( storage, params, (ComponentFunction) KLG 

case codecGetCornpressionTime: 

err=CallComponentFunctionWithStorage ( storage, params, (ComponentFunction) KLG 

case codecGetSimilarity : 

err=codecUnimpErr; break; 

case codecTrlmlmage : 

errscodecUnimpErr; break; 

default : 

err=paramErr; break; 

} 

it (err! =noErr) 

DebugMsg ( ■ \pCodec Error ■ ) ; 
return (err) ; 

} 

include <Memory.h> 
pinciude <Resources. h> 
H include <OSUtils.h> 
# include <SysEqu.h> 

# include <StdIO.h> 
# include <Time.h> 

#include <Strings.h> 
#include <String.h> 
#include 'BicsS.h' 
#include •KlicsHeader.h- 
#include •KlicsEncode.h- 

void DebugString(char ♦ string) 

DebugStr (string) ; 

) 
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excem short gResRef ; 

typedef struct { 

Codeclnfo **info; 

Ptr tab(4); 

short usef4); 
) SharedGlobals; 

cypedef struct { 

KlicsERec kle; 

short *src (3 ] ; 

short *dstt3] ; 

Ptr pixmap; 

long size; 

long using; 

long scale [3 3 ; 

unsigned long prev_frame; 

unsigned long real_fraine; 

unsigned long dpy^frame; 

unsigned long run_frame; 

unsigned long sys.time; 

unsigned long tree_time; 

unsigned long wave_tiine; 

unsigned long dpy_time; 

unsigned long run_time; 

\msigned long lcey_tinie; 

unsigned long sync.time; 

Boolean out [15]; 

SharedGlobals *sharedGlob; 
} Globals; 

/* Scaling scenarios: Tree v;ave Out 

* 110: Internal calculations are Quarter size, output Original size (interpo 

* 11 1: Internal calculations are Quarter size, output Quarter size 

* Oil: Internal calculations are Original size," output Quarter size 

* 0 0 0; Internal calculations are Original size, output Original size 

* 0 0-1: Internal calculations are Original size, output DoiiJble size 
*/ 

void KLDeallocate (Globals **glob); 
/* Klics Function Definitions */ 

extern Int KlicsEncode ( short ♦src[31, short *dst[3], KlicsE kle); 

extern Boolean KlicsDecode( short ^src[33, short *dst[3], KlicsSeqHeader *seqh,Kli 
long mode, long scale{33 , unsigned long *tree, unsigned long "wave); 

Memory allocation/deallocation routines 

OSErr 

MemoryError ( ) 
{ 

OSExr theErr; 

#ifdef DEBUG 

if (0!=(theErr=MemError())) 

Debi.igStr ' ^ pM^^mor^/Error " ) ; 



/* Encoding parameters */ 

/* YW Frame buffer */ 

/* YUV Frame buffer ♦/ 

/* Encoded pixmap data */ 

/* Size of Previous Frame Buffer •/ 

Which lookup table are we using for colour 
/* Tree, Wave, Out scales O=0riginai, -l=Doubl 
/* Previous frame number */ 
/• Previous real frame (no skips) */ 
/* Previous displayed frame */ 
/* First frame in play seguence */ 
/* System overhead for pprevious frame */ 
/* Typical tree decode time (not skip) ♦/ 
/* Typical wavelet transform time */ 
/* Typical display time */ 
/* Time of first run frame */ 
/* Time at last ,key frame */ 
/* Sync time «/ 
/* Displayed? */ 
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sendi f 

return ( cheErr) ; 

OSErr 

rreePtr(Pcr •ptr) 
/ 

OSErr cheErrrO; 

if {•ptr!=nil) ( 

DisposePtr ( 'per) ; 
*ptr=nil; 

theErr=MemoryErrorO ; 

) 

retum{theErr) ; 

) 

#define FreePointer (handle, err) \ 

if (noErrl = (err=FreePtrnPtrM {&handle) ) ) ) recum(err) 

excem OSErr Colours (Ptr *); 

extern OSErr Colourl6(Ptr 

extern OSErr C;v32Table ( Ptr * ; ; 

extern OSErr RGBTable(Ptr 

OSErr 

KLGetTab(Globals **glob,long new) 
OSErr theErr=0; 

SharedGlobals *sGlob= ( *glob) ->sharedGlob; 
long old=Cglob) ->using; 

if (old]=new) ( 

if (old!-=None) ( 

sGlob->usefold-l] — ; 

if (sGlob->use[old-l)==0) { 

FreePointer(sGlob->cab{old-l] , theErr) ; 

) 

if (new!=:None) { 

if (sGlob->use(new-l J==0) 
swiLch(new) ( 

*ifndef ENCODER 

case Use8: 

if tnoErr! = {theErr=Colour8(&sGlob->tab{new-ll ) ) ) 

return ( theErr ) ; 
break; 
case Usel6: 

if (noErr! = (theErr=Colourl6(&cGlob->tab;new-l] ) } ) 

recumC theErr) ; 
breaks- 
case Use32: 

if (noErr! = ftheErr=UV32Table(tsGlob->tabfnew-l) ) ) ) 

return (theErr) ; 
breaJc; 

tendif 

#ifndef DECODER 

case UseF32: 

if (noErr: = (theErr=RGBTable(&sGlob->tab[new-l] ) ) ) 

return (theErr) ; 
break; 
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#endif 

) 

(*glob) ->using=new; 
sGlob->use [new- 1 ] ; 

} 

} 

return (cheErr) ; 

} 



OSErr 

KLFree(Globals **glob) 
OSErr theErr=0; 

FreePointerC ( *glob) ->srcf 0] ,theErr} 
FreePointer( ( -glob) ->dst: [0) ,theErr; 
FreePointerC (*glob) ->pxxiTiap, theErr) 
{*glob) ->si2e=0; 
return (theErr) ; 



#define NewPointer (ptr, type, size) \ 
save2one=Ge t Zone ( ) ; \ 
Set2one(Systein2one() ) ; \ 
if (nil==(ptr=:(type>NewPtr(si2e) ) ) ( \ 
Set Zone {ApplicZone () ) ; \ 
if {nil==(ptr={type)NewPtr{size) ) ) ( \ 
SetZone(save2one) ; \ 
return (MemoryError {)) ; \ 

} \ 

) \ 

SetZone (saveZone) ; 



ComponentResult 

KLMalloc( Global s **glob, short height, short width, long pixelSize) 

long ysize»uvsize; 

TH2 saveZone; 

ysi2e= (long)heiight * (long)width » ( long) sizecf (short ) ; 

uvsize = ysize>>2; 

if ( C *glob) ->size != ysize) ( 
KLFree(glob) ; 
{ 'glob) ->size = ysize; 

{*glob) ->prev_fraine=-l; /♦ frame doesn't contain valid data */ 

/• Keep Src and Dst separate because of their large sizes */ 

ysi2e=( long) height * (long)width * ( long) sizeof (short) » 2* ( *glob) ->scaie 
uvsize = ysize»2; 

NewPointer( ( *glob) ->src [0] , short ♦ ,ysize+uv5i2e+uvsize+16) ; 

<*glob) ->src[l] = (short • ) ( ( (long) ( *glob) ->src [0] + ysize + 3L) t OxFFFFF 

(*glob) ->srcC2] = (short * ) ( ( (long) ( *glob) ->src [1] * uvsize + 3L) & OxFFFF. 

ysizesi long) height * (long)width * (long) sizeof (short ) » 2* ( »glob) ->scale 
uvsize = ysize»2; 

NewPointer( ( *glob) ->dst [0] .short * ,ysize+uvsize+uvsize+16) ; 

(*glob) ->dst [1] = (short • ) ( ( (long) Cglob) ->dst [0] ^ ysize + 3L) & OxFFFFF 

(*glob)->dst[2] = (short *)(( (long) Cglob) ->dst [1] + uvsize + 3L) & OxFFFF 
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^ NewPointer ( ( *giob) ->pixmap. Per , pixelSi2e/8*heighc*widrh«i J .- 
recum{noErr) ; 

) 

OSErr 

ResourceError ( ) 
( 

OSErr theErr; 

^ifdef DEBUG 

if (Oi={theErr=ResError())l 

DebugStr ( • \pResourceError • ) ; 

#endif 

return (theErr) ; 

} 

#ifdef COMPONENT 

#define ResErr (resf ile, err) \ 

if (0! = (err=ResourceError ( ) ) ) { \ 

if (resfile!=0) CloseComponentResFile (resf ile) ; \ 
return (err) ; \ 

) 

#else 

#define ResErr (resf ile, err ) \ 

if (0!= (err = ResourceError ()) ) { \ 
return (err J ; \ 

) 

#endif 

Component Re suit 

KLOpenlnfoRes (Component Instance self. Handle -info) 

ffpragma vinused(self ) 
short resFile=0: 
OSErr theErr=noErr ; 

if {*info) ( 

DisposHandle(*info) ; 
*in£o=nil; 

} 

#ifdef C0MP0NEJ3T 

resFile=OpenComponentResFile( (Coinponent ) self ) • 
ResErr (resFile, theErr) ; 
**else 

UseResFile(gResRef ) ; 
»endif 

*info=GetlResource(codeclnfoResourceType. 128) ; 
•info=GeciResource (codecinf oResourceType, 129) ; 
ResErr (resFile, theErr) ; 
LoadResource ( * info ) ; 
ResErr (resFile, theErr) ; 
DetachResource ( * info ) ; 
^ifdef COMPONENT 

CloseComponentResFile (resFile) ; 
itendif 

return (theErr) ; 

) 

pascal ComponentResult 

KLOpenCodec (Con?3onent Instance self) 

Globals **glob; 
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SharedGlobals *sGlob; 
3"^, saveZone; 
Boolean inAppHeap; 
CoinponencResult result = noEr-- 
short resFiierCurResFile ( ) ; " 

DebugMsg(-\popen Codec - begin-); 

'rLV^A;.J^'^^^^^^ == nil , ( 

) else HNoPurge{(Handle)giob); 
SetComponenciastanceStorage(self , (Handle) glob) ; 
saveZone = GecZoneO; 

Seczone(Systeinzone()) ; 
goto obail; 

) 

^ SecComponencRefcoiK (Component ) self , (long)sGlob) ; 

(*glob,->sharedGlob = sGlob;. // ,eep this around where it's easy to get at 
'rSt'KLS^»nr-"i^ " •<»a«dle)sGlob->info == „ii j ( 

Obail : 

SetZone ( saveZone ) ; 

^rrcni'C """^f^ ^^^^^ i= ) { 

ir ( sGlob->info ) 

^isposHandle( (Handle )sGlob->info) • 
DisposPtr((Ptr)sGlob); >inroj, 

^ SetComponentRefcon( (Conponent J self , {long)nil) ; 
(•glob)->size=0; 

DebugMsg ( - \pcpen Codec - end- ) • 
^ return (result ) ; 

pascal CorrponentResult 

KLCloseCodec (Handle storage, Component Instance self) 
SharedGlobals *sGlob- 

Globals -glob'= (Globals -) storage; 

DebugMsg CNpciose Codec - begin'); 
HLock ( storage ) ; 
if ( glob ) { 

KLFree(glob); 

KU3etTab(glob,None) / 

If tCountCoinponentlnst^^ 

*ifTsGl<^^?^^^^^^ ^=nil ) ( 

^ HPurge { (Handle) sGlob->ijif o) ; 

) 

DisposHandle( (Handle)globl ; 
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heighc = 12 0; 
) 

if (time) 

*cime = (width ♦ heighc * IL) ; 



if (spatialOuaiity •5pacialOualit/==codecLosslessOuality ) 
*spatialQuality = codecMaxQuality; 

if (temporalQuality && *tenporalOuality==codecLosslessOuality) 
*teniporalOualicy = codecMaxQuality ; 

return (noErr) ; 



} 

*^Extends dimensions to make a multiples of 32x16 

#define KLExtendWidth(dim) 31- {dim-l&31) 
f*define KLExtendH eight (dim) 15- (dim-l&15 ) 

pascal Component Re suit 

'"'"odecQ"^I!i^y?!^^r:?t-^^r src.consc Hect -srcRect . shore • 

"pragma unused ( s corage . src , depth . qual ity ) 

snort width = srcRect->righc - srcRect->ief t ; 
Short height = srcRect->bcttom - srcRect->top; 

/* test by just doing RGB storage •/ 

rlcu^InoErr) "^^"^^'^^^^^^^'''^^^^'^^'^^ * * ( height *KLExtendHeight (height ) ) ; 

3 

pascal Comnonent Result 

#pragma unused ( storage, dataSize , dataProc, desc ) 
short frmh.size; 
long data^size; 

if ( size == nil ) { 
return ( pa ramErr) ; 

} 

rrmh_si2er( (KlicsHeader * )data) ->description_length; 
aata_si2e=( ( KlicsFrameHeader *)data) ->iength* 
*si2e= ( long) f rmh_size+data_size- 
return (noErr) ; 



void 
{ 



KLSetupi Boolean still, short width, short height, CodecQ space, CodecQ tern 



kle->seqh.head.description_length=:si2eof (KlicsSeqHeader) ; 
Kie- >seQh . head . ver sion_number f 0 ] =0 ; 
kle->seqh . head . version.nximber [ 1 j =1 ; 
kle->seqh. sequence.size f 0] =width; 
kle->seqh . sequence_size ( 1 ] =height ; 
kle->seqh.sequence_si2e[2)=0; 
kle->seqh.stib_sainple[0}=:l; 
kle->seqh. sub_sample ( 1] =l; 
kle->seqh.wavelet=WT_Da^lb4 ; 
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kle->seqh.precision=10 
)cle->seQh. octaves fO] =3 
kle->seqh.occaves [11=2 

Kie->f rmh . head . vers ion.number [ 1 ) = i ; 

Sl::S:KiSti^^^ = ^^000 .i.s/f.a.e, Poor = X 

kle->encd.buf_si2e=kle->encd.bpf_iAM; 

kle- >encd . quant = 1 6 - ( space * 1 5 ) / 1 0 2 3 ; 
Jcle->encd.thresh=1.0; '/^^^J. 
kle->€ncd. coinpare=l . 0,- 
kie->encd. base ( 0 ) =0 . 10 ; 
kle->€ncd .base [ 1 ] =0 . io ; 
kle->encd.base [2 ] =0 . 20 ; 
kle->encd. base 1 3 ] =0 . 50 ; 
kle->encd.basef4]=l.O0; 
kle->encd.intra=still; 
kle->encd.auto_q=crue; 
kle->encd.buf_sw=cme; 
kle->encd.prevquacc=l ; 
kle - >encd . pr e vby t e s = 1 3 ; 



^ifndef DECODER 
pascal ComponentResult 

KLPreCompress( Handle storage. register CodecCompressParams *p) 
Con^jonenCResult result • 

Codeccapabilities ^capabilities = p->capabilities; 

short heio?; 'P-^^^SeDescription) ->width+ (capabilities->excendw 

Globals loTo^lZ'^'^nrorlli^''' -height. <capaMlities->exten. 

Ha^d^f We=&Cglob)->Jcle; ' 

ext=NewHandle ( sizeof (KlicsSeqHeader) ) ; 

DsbugMsg ( "ApKLPreCompress- ) ; 
HLock(storage) ; 

s^i^rh'^^T?^ * ' ' ="°^^^> return (MemError () ) ; 
case j4?"*^^^^®^"^P^^o"J->«iepth ) ( 



break 
) 



capabilities->wantedPixelSi2e = 32- 
kle->seqh.channels=3 ; 

if (noErr!=fresult=KLGetTabfglob.nseF32) ) ) 

returnCresult ) ; 
break; 
default: 

return (codecConditionErr) ; 



/• Going CO use 3 octaves for V and 2 for UV so the in«ge muse be a nuiltiple o 

capabiiities->bandMin = height- 
capabilities->bandlnc = capabiiities->bandMin; 

capabilities->f lags=codecCanCopyPrevComp | codecCanCopyPrev; 

( *glob) ->scale [ 0) =0 ; 

{•glob)->scalefll=0; 
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Cglob] ->scale[2)=0; 

if fnoErr!= (result=KLMaIloc(giob. height, widch,0))) return result; 
KLSecup(p.>sequenceID==0, width, height, f •p->imageDescription) ->spatialOuaiity. ( 

retv*m result; 
HUnlock( storage) ; 

DebugMsg ( • NpKLPreCoirpress success • ) * 
return (result) ; 

) 

^endif 

#ifndef ENCODER 
pascal long 

KLPreDecompress (Handle storage, register CodecDecompressParams -p) 
Component Re suit result; 

CodecCapabilities •capabilities = p->capabilities; 

dRect = p->srcRect; 
■^o^g width; 

height; 

^^"9 channels; 

3^?^^^^ **glob=(Globals storage; 

KlxcsE kle: 
Handle ext; 
OSErr err; 

DebugMsg ( • XpKLPreDecompress* ) ; 
if ( iTransformRect (p->matrix!&dRect,nil) ) 
return (codecConditionErr ) ; 

HLocJc( storage) ; 
kle=&(*glob)->)cle; 

switch ( (*p->imageDescription)->depth ) { 
case 24: 

switch (p->dstPixMap.pixelSize) { 
case 32: 

capabilities->wantedPixelSize = 32; 
if (p->condicionFlags&codecConditionNewDepth) { 
if (noErr!=(err=KLGetTab(glob,Use32) ) ) 
return (err) ; 

) 

break; 
case 16: 

capabilicies->wantedPixelSi2e = 16; 
if (p->condicionFlags&codecConditionNewDepth) ( 
If (noErr!=(err=KLGetTab(glob,Usel5) ) ) 
return (err) ; 

) 

break; 
case 8: 

capabilities- >wantedPixelSi2e = 8; 
if (p->conditionFlags&codecConditionNewClut) { 
if (noErr!=(err=KLGetTab(glob,Use8) ) ) 
return (err) ; 

} 

break; 

} 

channels =3 ; 
break; 
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defauic : 



) 



return (codecConditionErr) ; 
break; 



If (chaimels==i) kle->seqh. channels=l; 

Going to use 3 octaves for Y and 2 for UV so the image rtmst be a multiple o 
?ifdef HQ 

{*glob)->scaleC03=0; /• Tree scale 
#else 

{•glob)->scaleCO]=l; /* Tree scale */ 
#endi£ 

width=kle->seqh. sequence_si2e[0] ; 
height=kle->seqh . sequence.size ( 1 ] ; 

switch ( (*glob)->scale[0]) { 
case 1: /• Quarter size internal */ 
( *glob) ->scale [ 1] =1 ; 

if (p->matrix->matrix[0] [0]==p->matrix->matiix[l] [1] ) 
switch (p->mat:rix->macrix(0] [0]) { 
case 32768: 

capabilities->flags=codecCanScale; 
capabilitie3->extendWidth=width/2-dRect . right; 
c apafci 1 i t ie s ->ext endHe igh t =he ight / 2 - dRec t . bo 1 1 om ; 
(*glob)->scaieC2]=l; 
break; 
case 65536: 

capabilities->extendWidth=width-dRect. right; 
capabxlities->extendHeight=height-dRect. bottom; 
(*globj->scaler2)=0; 
break; 
default: 

capabilities->extendwidth=0; 
capabil it ies - >extendHeight =0 ; 
(*glob)->scale[2]-0; 
break; 

} 

else { 

capabi 1 it ies - >ext endWidth= 0 ; 
capabil it ies - >ext endHeight=0 ; 
( *glob) ->scale [2 ] =0 ; 

break; 

case 0: /* Full size internal V 

If (p->matrix->matrix[0] [0] ==p->matrix->matrix[l] [1] ) 
switch(p->matrix->m3trixtO] [01 ) ( 
case 32768: 

capabilities->flags=codecCanScale; 
capabilities->€:<tendWidth=width/2-dRect . right; 
capabilities ->ej:tendHeighc=height/2-dRect .bottom; 
(*glob) ->scale[l]=l; 
(*glob)->scale[2]=l; 
break; 
case 131072: 

capabilities->flags=codecCanScale; 
capabilities->extendWidth=width*2-dRect . right ; 

capabilities->extendHeight=height*2-dRect. bottom; 
(•glob) ->scaleCl]=0; 
f *glob) ->scaler23=:-l; 
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break; 
case 65536: 

capabiiicies->extendWidth=width-dRecc.righc; 

capabilities->excendHeighc=heighc-dRecc.botCom* 

(*glob) ->scale[i]=0; 

(*glob)->scale[2)=0; 

break; 
default : 

capabilities->extendwidch=0; 

capabilities->extendKeight=0; 

( *glob) ->scale[l] =0; 
^ (*glob) ->scalef2]=0; 

else { 

capabilities->extendWidth=0; 
capabilities->extendHeighc=0; 
(*glob) ->scaleCl]=0; 
^ (•glob)->scale[2J=0; 

break; 

) 

capabilities->bandMin = height: 
capabilities->bandlnc = capabilities ->bandMin; 

capabilit ies->f lags I =codecCanCopyPrev I codecCanCopyPrevComp I codecCanHemapColoi ; 

if (noErr! = (result=KLMalloc (glob, height, width, capabilities->w£ntedPixelSize) J) 
HUnlock ( storage ) ; 

DebugMsg { • \pKLPreDeconpress success- ) ; 
return (result) ; 



/* Test Versions in C - Colour. c */ 

void vS?IS2!ion^ .•Pi'^P- sh"" -^C' Short -oc. Short -Vc. int area, inc wid 
void yScaslxiTpL l^r^''^ short 'Yc. short -Uc, -short -Vc, int area, int wid 
voia yov2RGB32x2(Ptr table, long •puonap, short ♦Yc, short *Uc, short 'Vc, int a 

/* Assembler versions - Colour. a */ 

OUT32X2D!p^r''r»i?;^?^S -pixinap, short -Y, short 'U, short -V.long width, long height, 1 
0'T32^Ptl tabJf^inAi short 'U, short -V, long width, long height, 

OUT32D(Ptr^!; ?nn„ ^i'^^'^^x''^ -V. short -U, short -V, long width, long height. Ion. 
0'JT8X2 Pt- cStMS^^ ^Pixmap, short -Y, short 'U, short -V, long width, long height, lo: 
0yTS^ot";.hf^ ? P^'^^P/ Short -Y. shore 'U. short -V, long width, long height, lo: 

0^??6X2?Ptftahir?nnS^^!i:*''''''°': short -0. short -V, long width, long heighl.long 
OUTieiPtr Lm» ?;i ? :pi««P.. short -y, short 'U. short -v. long width, long height. 1 
TN32(pf^ .!kV ; °"^.^^'°^P'S^''" short -U, short -V, long width, long height, lin- 
IN32(Ptr table. long -pixmap , short -Y, short '0. short -V, long width. long height .long 

/* Assembler versions - Color2.a '/ 

void ^R^2Mnn^ :p^P' Short *Yc. shorr 'Oc, short 'Vc, int area, int widt. 

void XlsrH^ 1^^^ -Pi^nap, short -Yc, short -Oc. short 'Vc, int area, int widt 

void SjvMon^ ? :pi»nap. short -Yc, short -Uc. shore -/c, int area, int widtl 
vntri -pixmap, short 'Yc. int area, int width, int cols): 

void -Pixinap, short -Yc, int lines, int width, int cols); 

voia Y2GGG(long -pixmap, short 'Yc, int lines, int width, int cols) ; 

^SgbI Mi,lioi?'";*Kf''^^'P^'^P' src[0] ,src[l] , src [2] , cols* ( *desc) ->height»scale,- 
VUV2RGB 5 ( ( *glob ) ->Table , pixmap , src [ 0 1 , src [ 1 ] , src ( 2 ) , col s- ( 'desc > ->height , width»sc 

#pragma parameter DO Microseconds 
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pascal unsigned long Microseconds (void) = (0x4£B0, OxSIEl, Ox64C); 

unsigned long GetTimerValue (unsigned long *TimerKes) 

*TinierRes = CLOCKS_PER_SEC ; 
^ return ( Microseconds ( ) ) ; 

#ifndef DECODER 
pascal long 

KLBandCompress (Handle storage, register CodecCoit^ressParams *p) 
^pragma unused (storage) 

Globals **glob = (Globals **) storage • 

ImageDescrxption -desc = p->imageDescriptionr 

^fj^ *baseAddr; 

rowBvtes; 

Recc sRect ; 

Xl^^ offsetH^offsetV; 

result = noErr; 

*srcr3],*dstf3]; 

♦piionap; 

iSt ^^^^^11= (*desc) ->width*KLExtendWid^^ (*desc) ->width) ; 

inr ^^^•?^^=f^^esc)->height^KLExtendHeight({*desc)->height); 

hwidth=widch»l,hheighc=height»l; ^ ^ ' 

^ ^ bytes; 
KlicsE )cie; 

nniuMode=l; 

IhSedGlobals *sGlob! mtra-mode- , inter [] =■ \pENC: Inter -mode" ; 

#ifdef PERFORMANCE 

(void) Perf Control {ThePGlobals, true) ; 
Renoir 

DebugMsg ( ' \pBandCoirpres s • ) ; 
HLocJc( (Handle)glob) ; 
kle=&(*glob)->kle; 
sGlob= ( *glob) ->sharedGlob; 

rowBytes = P->srcPixMap.rowBytes & Ox3fff- 
SRect = p->srcPixMap. bounds; 
swxcch ( p->srcPixMap.pixelSi2e ) { 
case 32: 

offsetH = SRect. lefc«2; 

break; 
case 16: 

OffsetH =: sRect.left«l; 

break; 
case 8: 

OffsetH = sRect.left; 
break; 
default : 

result = codecErr; 
DebugMsg C ■ \pError • ) ; 
goto bail; 

} 

offsetv = sRect.top • rowBytes ; 

baseAddr = p->srcPixMap.baseAddr + offsetH + offsetv- 
pixmap^dong •) baseAddr; ortsetv, 

' * Ff "akeFSSpec (0,0,- \puser : crapOOl • , &f sspec ) ; 
FSpCreate (Sfsspec. '????• , *????•, -i) • 
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switch ( kle->seqh . chann^lsf ^ ' " < 9^°*" ->°sc [ 1 J ; dsc ( 2 ] = ( -glob) ->dsc {2 ] ; 



* Klics encode 



*^ifdef DEBUG 



bail 



Jcle->fxinh.fraine_nu:r,ber=p->frameNuinber: ' 
bytes=KlicsEncode{src,dsc,Icle) ; 

( *glob) ->prev_f raine=p->£rameNumber: 

p- >da c a +=byc es ; 
p->buf fersize=byces; 

( *P->iinageDescripcion ) ->dacaSi2e=byces .- 
P-:«nerFia^s=io - = ^^^^^^ ' ^ > > 

P->canerKIa.s,=codecPXagusedX:na.eBu.fe.HKle->encd.incxa.codecPXa.c;sed.ewX^, 



- . ^^»Unlock( (Handle) glob) ; 
fflfdef PERFORMANCE 

'"°reSres!S'^^'"^^^^^°''^^=' ■^PHncode .perf - . false. 0, , , 

#endif ' 

DebugMsg { ■ \pBandCoinpress success • j • 
^ return (resale ) ; success ), 

#endif 

/• Display stuff for debugging 
CGrafPtr wPort, savePort; 
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Rect rect; 
Str255 str; 

GetPorc( (Graf Per * )&savePorc) ; 
GecCWMgrPort (&wPort) ; 
SetPorc( (Graf Per) wPort) ; 
SetRect i&rect, 0, 0, 50, 30) • 
ClipRect (&recc) 
EraseRecc (&rect) ; 

Numroscring (f nnh->f raine_nuinber, scr ) ; 
MoveTo(0,20) ; '=-.&i.i/. 

Drawstring (str) ; 

if ffrTnh->flags&KFH_lNTRA) ( 

SetRect (&recc, 0, 30, 50, 65); 

ClipRect(irect) ; 

EraseRect (&rect ) • 

^ Drawstring (Str) ; 

SetRect ( &rect , -2000 ,0,2000, 2000 ) ; 

ClipRect (&rect) ; 

SetPorc ( (Graf ptr) savePort ) ; V 

^define flag_tree 0x1 
ffdefine flag_wave 0x2 
ffdefine flag_show 0x4 
^define flag.full 0x8 
ffdeiine DURATION 66666 

long ModeSwitch(Globals *gIob, KlicsFrameHeader ^frmh) 
long mode=0, i, fps- 

Boolean ^|P^f^=glob->p;ev.fraine==f rmh-^ 

CGrafPtr"""'w^^?t^fave?orr 
Rect rect ; 

Str255 str; 

DebugMsgCXpModeSwitch - begin'); 
If (f nnh->f rame_number=='^) 

glob->run_tiine=0; 

DebugMsgCVpModeSwitch - repeat (end)-)- 
^ return (flag.siiow I flag_full); 

if (next) 

switch ( f rmh->f lags ) / 
case KFH.SKIP: 

DebugMsgCXpModeSwitch - next /skip-); 
glob->prev.f ranie=f nnh->f rame^uinber ; 
II (g-Lob->sys_time>DURATlON) { 
glob->run_t ime=0 ; 

if (glob->real_franiei=glob->dpy_frame) 
mode I =f lag_wave i f lag.show; 

J else { 

unsigned long frame, late; 

If (fraine<=qlob->prev_frame i& glob->real_frame.=glob-xipy_fraine) 
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mode 1 =f lag_wave I f lag_show; 

*m^?''^?^°^"^^''^^T^^^^ lace+giob->wave_cime-.glob->dpy time 
^ mode I = f lag_wave I f lag„show; « / k^jr-uxmc 

breaks- 
case KFH.INTRA: 

DebugMsg(-\pModeSwitch - nexc/intra" ) ; 
mod3=f lag_cree; 
g 1 ob - >pr e v_f r ame = f rmh - > f r ame.numbe r ; 
glob->real„fra:ne=glob->prev_fraine; 
if (giob->sys_cime>DURATICN) ( 
g 1 ob- > nin_c ime = 0 ; 

mode I =f Iag_wave I f lag.show | flag full ; 
) else - 

if (glob->n;n_time==0 ) { ♦/ 

glob->key_tiine=glob->sync_time-glob->run_cime; 
glob->run_tiine=glob->sync_time-glob->sys_c ixne; 
glob->run_frame=glob->prev_fraine; 
model=flag_waveIflag_shov/|flag full; 
} else { ~ 

unsigned long frame, lace; 

if^^T^^^w'^'^-^f *?lot>->sync.time-glob->run_time> /DURATia 
late= (glob->sync_time-glob->rur._time) %DURATION; 
ir it rame<=g lob- >prev_f rame ) 
^ ^ ^ mode I = f lag.wave ( f lag_show I f lag_f ull; 

break; 
default : 

DebugMsgCNpModeSwicch - nexc/inte-- ) • 
modes flag_tree; 

glob->prev_frame=frTnh->frame_number; 
glob->real_frame=glob->prev_frame; 
if ( g lob->sy s_t inie>DURATION ) ( 

g 1 ob- > r un_t ime=.0 ; 

mode l=f iag_wave'l f lag_show; 
} else 

if (glob->run_time==0) { 

glob->run_tirae=glob->sync_cime-glob->sys_time; 
glob->run_frame=glob->prev_frame; 
mode I =f lag_wave I f lag_shov/; 
} else ( 

unsigned long frame, late; 

f f f^^T^^''^'^'^"-*'''''"^* *^^°^"^^^*^---"'^-9lob->run_cime) /DURATIO^ 
1 a t e= ( glob- > sy nc_t ime -g 1 ob- > run_c ime ) %DURATION ; 
If ( frame<=g lob- >prev_f rame) 

mode I =f lag„wave I f lag_show; 
If (frame<=glob->prev_frame && late+glob->cree_time+glob->wave 
^ model=flag_v;avetflag_show;«/ 

break; 

) 

else 

switch { f rmh- >f lags ) ( 
case KFH_SKIP: 

DebugMsgCXpModeSwitch - junp/skip- ) ; 
g 1 ob - > run. t ime = 0 ; 
break; 
case KFH_INTRA: 

DebugMsgfXpModeCwitch - jun^a/incra- ) • 
mode=f lag_tree I f lag_wave I f lag_showI f lag_f ull • 
for ( i=glob->prev_f rame ; i<f rmh->f rame number; i ) 
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glob->ouc [frTnh->frame_number%15] =0• 
glob->prev_frame=frmh->frame_nuInber; 
glob->real_frame=glob->prev_frame; 
glob->run_cime=0; 
break; 
default : 

DebugMsg(-\pModeSwitch - jurno/incer- ) • 

g 1 ob- >run_ t j jne = 0 ; 

break; 

} 

DebiigMsgCNpModeSwitch - display info"); 
^ifndef COMPONENT 

^* f f ^:>f raine_nuniber%15] = (mode&flag.show) ! =0; 

rofi (glob->out[i]) f5s+*; 

GetPort((GrafPtr • ) isavePort) ; 
GetCWMgrPort ( &wPorc ) ; 
SetPort ( (Graf Ptr)wPort) ; 
Set:Rect(&recc, 0,20, 120,50) ; 
ClxpRect(&rect) ; 
EraseRect (trect) ; 

NumToString(fnnh->fraine_nuinber,scr) • 
MoveTo(0,35) ; 

Drawstring ( scr ) ; 
Drawstring ( * \p : • ) ; 
NuinToString(fps, scr) ; 
Draws tring( scr ) ; 
MoveTo<0, 50) ; 
for(i=0;i<i5;i+^) 

if (glob->out [ij) Drawstring ( 'XoX' ) ; 

else DrawScring( -\pOM ; 
SetRecc(&recc, -2000, 0,2000,2000) ; 
ClipRect (&rect) ; 

SetPort ( (GrafPtr)sairePorc) •*/ 
#6ndif 

DebugMsgCNpModeSwitch - end* ) • 
return (mode) ; 

) 

#ifndef ENCODER 
pascal long 

KLBandDecompress (Handle storage. register CodecDecompressParams *p) 

^rpragma unused (storage) 

Globals **glob = (Globals **)scorage- 
ImageDescripcion -desc = p->iinageDescripcion; 
x,y; 

•baseAddr; 
short rowBytes; 
^^^^ dRect; 
X^^^ offsetH,offsetV; 

result = noErr; 
*src[3],*dsc[3]; 



ec . c 



long 
int 
int 
int 



*pixinap ; 

(*desc ; 

mt !? -2 * V^^^"^^ ->height+KLExcendHeight [ ( *desc) ->height ) 

SicsE . hwidth=width»l , hheighc =height »1 , Irea=height ^width; 

KlicsFrameHeader *frnih; 

f^^^ inmuMode=l; 

long mode; 

SharedGlobais *sGlob- 



FILE 



*fp; 
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^^^^^ file_iiame(301 ; 

CGrafPcr wPorr, savePorc; 

Recc rect; 
Scr255 sry 

V 

HLock( (Handle)glob) ; 
DefcugMsg ( - \pBandDecompress - ) ; 

(*gIob)->sys_cijne=GetTijnerVaIue(&(*glob)->sys_cime) ; 
(*glob) ->sys_ciine-=(*glob)->sync_cime; 

?ifdet PERFORMANCE 

(void) Perf Control (ThePGlobais, true) ; 
#endif 

kle=&CgIob) ->kle; 

sGlob= ( •glob) ->sharedGlob; 

dRect = p->srcRect; 

if ( iTransformRecc (p->matrix.&dRect,nil) ) { 
DebugMsg ( ■ \pTransf ormRect Error* ) ; 
return (pa ramErr) ; 

) 

rowBytes = p->dscPixMap. rowBytes & Ox3fff; 
offsetH = (dRecc.left - p->ds tPixMap. bounds. left ) ; 
switch { p->dstPixMap.pixelSi2e ) ( 
case 32: 

OffsetH «=2; 

break; 
case 16: 

OffsetH «=1; 

break; 
case 8: 

break; 
default: 

result = codecErr; 

DebugMsg ( • \pDepth Error ■ ) ; 

goto bail; 

) 

offsetV = (dRect. top - p->dstPixMap. bounds. top) * rowBytes; 
baseAddr = p-=*dstPixMap. baseAddr * offsetH * offsetV- 
pixmaps ( long •) baseAddr; 

/* 

* Klics decode 



ri=r{nl"!*^^''Kl'''r''fn]' srcfl] = eglob)->src(l]; src [2 3 = Cglob) ->src [2] ; 
dst{0] = (*glob)->dst[0]; dst[l) = Cglob)->dst[l]; dst [2 j = ( -glob) ->dst [2] ; 

frmh= (KlicsFrameHeader "•)p->data; 

^ir^w'^S*"^^^"*!?"^^^'^^^ *) (P->data+siseof (KlicsFrameHeader)); 

niode=ModeSwitch(*glob,frmh) ; 

KlicsDecode ( src, dst , &kle->seqh, f rmh, &kle->buf , mode . { *glob) ->scale , & ( *glob) ->tr 

if ( kle->buf .ptr-kle->buf .buf > f nnh->length+2 ) 

DebugMsg CNpwaming: Decompressor read passed end of buffer*); 

p->daca[0]='X' ; 

p->data(l] =mode&f lag_tree? 'T* : ' ' ; 
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p- >da ta ( 2 ] =mode& f lag_wave ? * w 
p->data [3 ] =mode&:f lag_show? ' s 
p->data[4]=mode&fiag_fuli?*? ; ; 

p->dataf 5] =f nTih->riags&KFH_rNTRA? I 

p->dataf 6] = frmh->f lags&KFH SKIP?'K'-* 
P->data[7]='X'; ' 

p->data-r=p->buf ferSize; 
* signed 10 bit VUV-unsigned 8 RGB convert 

****** ^ 

#ifdef COMPONENT 

SwapMMUMode{&nimuMode) ; 
#endif 

if (mode&f lag_show} { 

(*glob)->sync_cime=GecTimerValije(&Cglob)->svnc t^mel • 
f ->dPy-f rame= ( *glob) ->real_f raSeP * ' 

It (( glob)->scaleC2I<f*glob)->scaiefll ) f 

switch{kle->seqh. channels) { 

case 3: 

switch (p->dstPixMap.pixelSize) { 
case 32: 

if (mode&f lag.full) 

^^^^OUT32X2(sGlob.>cabtUse32-l],pixinap,srcC0],srcfl].srcI2],wi. 
case 16: 

g^^^f ==l°''->?^b[Dsel6-l],pixn«p.srctOJ.src[l].src[2),width> 

case 8: 

OOT8X2 ;sGlob.>tab[Use8-l J ,pi.n^p. sr^ 

} 

break; 

} 

} else { 

switch (3cle->seqh. channels ) { 
case 3: 

switch (p->dstPixMap.pixelSi2e) ( 
case 32: 

i f ( mode& f lag_f u 1 1 ) 

eise°"^" -P^P' ' (1] . src [2] .wide! 

breakf '^''"'''°'''"'^f"=^'2-^''Pi^P' src(0] , sro[l] , src[2] ,wid 
case 16: 

case B: 

OOT8{sGlob->tabCUse8-l],pixn^p,src[03 

) 

break; 

} 

} 



{*?i^h!"^^-^^"'^=^^^^^^^^^^^^<^<*5lob}->dpy time) ; 
^ ( giC)b).>cw_t:iine-=(*glob)->sync.time; ^^-^-^e' - 
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CLEARA2 { ) ; 

(*glob)->sync_time=GetTimerValuef&fgloJD)->sync_time); 
#ifdef COMPONENT 

SwapMMUMode f tmrnuMode } ; 
#endif 

bail: 

HUnlock{ (Handle) glob) ; 
#ifdef PERFORMANCE 



#endif 




^=P^^^^PfThePGlobals, 'XpDecode.perf • , false, C) ) ) 



DebugMsg ( ■ \pBandDecompress success - ) • 
recurn(result) ; 



#endif 
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* © Copyright 1993 KLICS Limiced 

* All rights reserved. 
» 

* Written by: Adrian Lewis 

r*"*'**'*'"' 

* Second generation header file 



#include <stdio.h> 

/* useful X definitions */ 
/^typedef char Boolean;*/ 
typedef char ♦String; 
tdefine True i 
#define False 0 

/* new Blk definition */ 
typedef int Blk [4]; 

^define WT_Haar 0 
#define WT_Daub4 1 

/* mode constructors */ 
#define H_LPF l 
#define M_STILL 2 
^Fdefine M_SEND 4 
#define M_STOP 8 
tdefine M_VOID IS 

#define M_QUIT 32 ^ 

/* LookAhead histogram */ 
#define HISTO 300 
#define HISTO.DELTA 15.0 
#define HISTO_BITS 10 

/* Fast Functions */ 

/* Is the block all zero ♦/ 
#define BlkZero (block) \ 

blockCOj==0 && block[ll==o && blockC2J==o && block[3J==0 

/• Slim of the absolute values */ 
F define Decide (new) \ 

abs(newC03)+ \ 

abs(newflj)+ \ 

abs{new[2])+ \ 

abs(new[3]) 



/* Sum of the absolute differences */ 
ffdefxne DecideDelta (new, old) \ 

abs(new[0]-old[0] )^ \ 

abs(new{l]-old(lJ)+ \ 

abs(new[2]-oldC2] )^ \ 

abs{new(3]-old[3J) 

/* Adjust the norm for comparison with SigmaAbs */ 
#define Dec ideDouble (norm) (4.0*nonn) 

/* Get addresses from x.y coords of block, sub-band, octave. 
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image size and mask (directly related to octave; informacicn 

^define GetAddr(addr,x,y. sub, oct, size, mask) \ 
1 mt smask=mask»l, \ 

xO=xl tsubfi:l?smask:0) , \ 

xl=xl (sub&i?smask:0) Imask. \ 

yO=(y| {sub&2?smask:0))*size[0), \ 

^ yi=(yl{sub&2?smask:0) Imask) -sizefOl; \ 

addr (0] =xO+yO; \ 
addrCl]=xl+yO; \ 
adQrf2]=xO+yl; \ 
^ addr(3]=xl+yl; \ 

i*r^Ji^^ "^t^^ values from addresses and memor^' -/ 
Mefme GetData{addr, block, data) \ 

block[0]= (int)data[addr[0] ] ; \ 

block[l)=:fint)aata(addr(l]] ; \ 

blockf2]=(int)data[addr f2) ] ; \ 

block[3] = (inc)data[addr[3]] ; 

^define VerifyData (block, mask. cn^) \ 
tmp=block&mask; \ 
if (tnp!=0 && cmp.'=mask) ( \ 
^ block=blockc07mask:-mask; \ 

/• Put data values to memory using addresses -/ 
*rdefine PutDaca(addr, block, data) \ ^ 

data[addr[0] J=(short)blockfO] • \ 

data(addr(13 j=(short)block[l) • \ 

data(addr[2]]=(short)blockC2) • \ 

data ( addr [ 3 ] } = ( short ) block [ 3 ] ; 

/* Put zero's to memory using addresses */ 
ffdefme PutZero [addr , data) \ 

data [addr [0] ]=0; \ 

data[addr [1] ]=0; \ 

data(addr[2] ]=0; \ 

data(addrr3] ]=0; 

#define Do Zero (addr, dst. mode. oct ) \ 
PutZero ( addr , dst ) ; \ 
mode [oct ] =OCC==0?M_STOP: M_V0ID; 

/* Descend the tree structure 
*^Copy mode, decrement octave (& mask), set branch to zero 

#define DownCounters (mode, oct , mask, blk) \ 
irode[oct-l] =mode [oct] ; \ 
oct--; \ 

mask = mask»l; \ 
blk[oct)=0; 

/* Ascend the tree structure 

* 1^^!''^.^^^^'^^ possible) until branch not 3 

-ir at top then set mode to M_QUIT 
•^Else increment branch and x, y coords 

*'^^^^K^i^^°^^°''''*'^"*'"^^^'°^^''"^sk,blk,x,y,octs) \ 
while (oct<octs-l blkfoct]==3) ( \ 
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blkrocc)=0; \ 
mask= mask«l; \ 
X &= -mask; \ 
y &= -mask; \ 
OCC++; \ 

} \ 

if (oct==occs-l) model Oct ]=M_QUIT; \ 
else { \ 

blk[occ]-h+; \ 

X ^= mask«l; \ 

if (blkfocc)==2) y mask«l; \ 
mode{oct)=mode[oct+ll ; \ 
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© Copyright 1993 KLICS Limited 
Ail rights reserved. 

Written by: Adrian Lewis 



58000 FastForward/Backward Haar 





macro 








FwdO 


&addrO,&dG,&dH 






move . w 


(&addrO) , &dG 


; dG=M shore *)addrl 




move . w 


&dG,&dH 


; dH=dG 


» 


endm 








macro 








Fwdl 


&addr 1 , &addrO , &dG , &dH 




move . w 


(&addri) ,dO 


; v=* (short *)addr2 




add.w 


dO,&dH 


: dH-h=v 




sub. w 


do , &dG 


• dG-=v 




clr . w 


dO 


■ dO=0 




asr . w 


#l,&dH 


• dAH»=l 




addx. w 


dO,£tdH 


■ round dH 




asr.w 


#l*&dG 


' dG»=l 




addx. w 


do , &dG 


round dG 




move . w 


&dH. (&addrO) 


*{ short *)dddrO=dH 




move . w 


&dG, (&addrl) 


♦(short *)addrl=dG 


k , 


mend 








macro 








Fwd 


&base , tend t &inc 





3do 



movea ..1 
move . 1 
asr . 1 
movea. 1 
suba . 1 
FwdO 
adda . 1 
Fwdl 
adda.l 
cmpa , 1 
bgc . s 

endm 



&base, aO 

&inc . dO 

ffl.dO 

aO,al 

dO.ai 

aO,d4,d5 

&inc, al 

al,aO,d4.d5 

&inc, aO 

aO, &end 

(ido 



HaarForward FUNC 
* 

link 
movem. 1 

move . 1 
movea . 1 
move . 1 
move . 1 
move . 1 



EXPORT 
a6,#0 

d4-d7/a3-a5,- (a7) 

$000C(a6) ,d3 
$0008ta6) ,a5 
$0010(a6) ,d6 
S0018(a6) ,d7 
$0014 (a6) ,d2 



addrO=base 

d0=inc 

dO=inc>>l 

addrl=addrO 

addrl-= ( inc>>l ) 

FwdOfaddrO,dG,dH) 

addrl+=inc 

Fwdl ( addr 1 . addrO , dG , dH ) 

addr0+=inc 

addr 0< end 

while 



no local variables 
store registers 



inc=inci 

basQ=data 

endl 

end2 

inc2 
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Gdo 



movea . 1 
adda . 1 
Fwd 
adda. 1 
cinpa . 1 
blt.s 



a5, a4 

d6,a4 

a5,a4,d3 

d2,a5 

d7,a5 

@do 



end=base 

end-t-=endl 

Fwd (base, end, inc) 

base-*-=inc2 

end2>base 

for 



movem. 1 

unlk 

res 

ENDFUNC 



{a7)+,d4-d7/a3-a5 
a6 



restore registers 
remove locals 
return 



macro 






3wdO 


'&addrO,&dG,&dH 




move . w 


{fi:addrO),&dG 


dG=* (short *)addrO 


move . w 


&dG,&dH 


dH=dG 


endm 






macro 






Bwdl 


&addrl , &addr 0 , &dG , &dH 


move . w 


(&addrl),dO 


v=*^( short *)addrl 


add.w 


dO , &dK 


dHi-=v 


sub.w 


dO,&dG 


dG-=v 


move.w 


&dH, (&addr0 5 


♦(short *)addrO=dH 


move . w 


&dG, (taddrl) 


*( short •)addrl=dG 


endm 






macro 






Bwd 


&base , &count , &inc 





Qdo 



movea , 1 
move . 1 
asr. 1 
movea . 1 
s\iba. 1 
BwdO 
adda. 1 
Bwdl 
adda . 1 
dbf 



endm 
HaarBac}cward 



&base , aO 

&inCrdC 

#l,dO 

aO, al 

dO,al 

a0,d4,d5 

&inc, al 

al,a0,d4,d5 

&inc, aO 

&count , ©do 



FUKC 



EXPORT 



addrO=base 

dO=inc 

dO=in'j»l 

addri=addrO 

addrl-=(inc»l)'*- 

BwdO(addrO,dG.dH) 

addrl+=inc 

Bwdl ( addrl , addrO , dG , dH ) 

addrO+=inc 

while -lI=count 



dO 



spare, dl - countl, 62 - inc2 , d3 - incl, d4 - dG, d5 - dH, d6 - loopl, d 



link 


a6,#0 


no local variables 


movem. 1 


d4-d7/a3-a5,-{a7) 


store registers 


move . 1 


$000C(a6) ,d3 


inc = incl 


movea . 1 


$0008(a6),a5 


base=data 


move . 1 


$0010(a6) ,d6 


loopl (width/height) 


move . 1 


S0018(aS) ,d7 


loop2 (height /width) 


move. 1 


S0014(a6) ,d2 


inc2 


subq. 1 


#l,d7 


loop2-=l 


Isr.l 


#l,d6 


loopl/=2 


subg. 1 


#l,d6 


loopl-=l 
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9do move.l d6,dl 

Bwd a5,dl.d3 

adda .1 d2 , a5 

dbf d7,@do 

movem. 1 { a7 ) d4-d7/a3-a5 

unlk a6 

rtii 



; count l=loopl 

; Bwd (base. count . inc) 

; base-^=inc2 

; while -ll=--loop2 

restore registers 
remove locals 
return 



ENDFUNC 



HaarXTopBwd FUNC 



EXPORT 



(3 do 



@dol 
@do2 



link 


a6,#0 


; no local variables 


movea . 1 


$0008(a6) ,aO 


; start 


move . 1 


S0O0C{a6) ,d3 


; area 


Isr.l 


#l.d3 


; area (long) 


subq.l 


#l,d3 


; area-=l 


move . 1 


(aO) ,dO 


; dO=HG=*Y 


move . 1 


dO,dl 


; dl=HG 


swap 


dl 


; dl=GH 


neg . w 


dO 


; dO=H('G) 


add.! 


di,dO 


; dO=01 


move . 1 


dO, (aO)+ 




dbf 


d3, @do 




unlk 


a6 


* remove locals 


rts 




• return 


ENDFtJNC 






Bwd FUNC 


EXPORT 




link 


a6. #0 


■ no local variables 


movem. 1 


d4-d6. -{a7) 


' store registers 


movea . 1 


$0008{a6) ,aO 


startK 


movea . 1 


aO,al 


startG 


move . 1 


$000C(a6),d4 - 


height 


move . 1 


S0010(a6) ,d3 


width 


move . 1 


d3,d6 ; 


lineien=width 


add.l 


d6 , d6 ; 


linelen (bytes) 


Isr.l 


#l,d4 ; 


height / =2 


Isr.l 


#l,d3 ; 


width/ =2 


subq. 1 


#l,d4 ; 


height -=1 


subq. 1 


#l,d3 


width- =1 


adda . 1 


d6.al 


startG+slinelen 


move . 1 


d3,d5 ; 


linecount=width 


move . 1 


(aO),dO ; 


dO=HAHB=*YO 


move . 1 


(al),dl ; 


dl=GAGB=*Yl 


move . 1 


d0,d2 ; 


d2=HAHB 


add.l 


dl,dO 


dO=OAOB 


sub.l 


dl,d2 


d2=lAlB 


move . 1 


do , dl 


dl=HG 


swap 


dl ; 


dl=GH 


neg . w 


dO 


dO=H(-G) 


add.l 


dl , dO 


dO=01 


move . 1 


dO,(aO)+ 


•YO-f+=0A0B 


move . 1 


d2.dl 


dl=HG 


swap 


dl 


dl=GH 
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neg.w 
add.l 
move. 1 

dbf 

move . 1 
dbf 

movem, 1 

unl)c 

res 

ENDFUNC 



62 

dl,d2 
d2, (al)+ 

d5.@do2 
al.aO 
d4, @dol 

(a7)+,d4-d6 
a6 



d2=H(-G) 
d2=:01 

; while -1*! =--linecounc 

; starcHsscartG 

; while -l!=--height 



; restore registers 
; remove locals 
; return 



END 
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nL^'^^I^^ transform convolver (fast hardware emulation) 
New improved wavelet coeffs : 11 19 5 3 --j-uiw 



Optimized for speed: 
dim - False 
src/dst octave == 0 



^define FwdS(addrO, dAG, dAH) \ 
v=M short ')addrO; \ 
dAG={v3=v-^(vs=v«l) ) ; \ 
dAG+=v+ (vs«=l) ; \ 
dAHr=v3+ (vs<<=l) ; \ 
dAH+=v3+ (vs« = l) ; 

#define Fwdl (addrl, dAG, dAH, dBG, dBH) \ 
v=M short Maddrl; \ 
dBG=:(v3=v+(vs=v«l) ) ; \ 

dAH+=V*(vs« = l) ; \ 

dBH=v3+ (vs«=l] ; \ 
dAG-=v3+(vs«=l) ; 

#de f ine Fwd2 { addr2 , addrl , addrO , dAG , dAH . dBG , dBH ) \ 
vx- (short *)addr2; \ »uon, v 

dAH-=(v3=v-^{vs=:v«l) ) ; \ 

dBG+=V+(VS«=:i) ; \ 

dAG-*- = v3 + { vs«= 1 ) ; \ 

dBH+=v3+ (vs«=l) ; \ 

* (Short *;addrO={dAH+15)»5- \ 

M Short *)addrl=(dAG^15j»5; 

**define TwdS (addr3 , dAG, dAH, dBG, dBH) 
v='( short *)addr3; \ 

dAG= { v3::V-t- {VS=V<<1) ) ; \ 
dBH>=v+ (vs« = l) ; \ 

dAH = v3■^ (VS«=1 ) ; \ 

dBG-=v3* ( vs<c=i} ; 

Me f me FwdO ( addr 0 . addr 3 , addr 2 , dAG , dAH , dBG , dBH ) \ 
v=» (short *)addrO; \ 
dBH-= (v3=v+ (vs=v«l ) ) ; \ 
dAG+=v+ (vs<<=l) ; \ 
dBG+=v3+ (vs<<=l) ; \ 
dAH+=v3+(vs«=l) ; \ 
M short *)addr2=(dBH+15)»5; \ 
•(short •)addr3=(dBG+15)»5; 

#define FwdE(addr3 , addr2 , dBG, dBH) \ 
v=»( short *)addr3; \ 
dBH-h= (vs=v<<I ) ; \ 
dBG-=(vs«2); \ 

Mshort ♦)addr2 = (dBH+15)»5; \ 
* (short •)addr3 = (dBG*15)»5; 
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#define Fwd (base, end, inc) \ 
addrO=base; \ 
addr3=addrO- ( inc»2 ) ; \ 
addr2=addr3- { inc»2 ) ; \ 
addrl=addr2- (inc»2) ; \ 
FwdS(addrO,dAG,dAH) ; \ 
addrl+:=inc; \ 

Fwdl(addrl,dAG,dAH,dBG.dBH; ; \ 
addr2+=inc; \ 

Fwd2 ( addr2 , addr 1 , addr 0 , dAG , dAH , dBG . dBH ) ; \ 

aadr3+=inc; \ 

while (addr3<end) { \ 

Fwd3(addr3,dAG,dAH,dBG,dBH) ; \ 
addrO+=inc; \ 

FwdO(addrO,addr3,addr2,dAG,dAH,dBG,dBH) ; \ 
addrl4-=inc; \ 

Fwdl(addrl,dAG,dAH,dBG,dBH) ; \ 
addr2+=inc; \ 

Fwd2 ( addr2 , addr 1 , addr 0 , dAG , dAH , dBG , dBH ) ; \ 
addr3-»-=inc; \ 

) \ 

FwdE ( addr 3 , addr2 , dBG . dBH ) ; 



S=J?5S s -i: sSi: S jS: 

FascForward(char *daca. long incl, long endi, long inc2, char •end2) 
regiscer short v, vs, v3, dAG. dAH, dBG, dBH. inc- 
S^'^base. *'^°' '-'^^^■ ^--ei: 



void 
{ 



inc=incl; 

for{base=daca;base<end2;base+=inc2) { 
end=base+endl ; 
Fwd{ base, end, inc) ; 



void Daub4Forvard( short *data. int si2e[21, int oct.dsc) 

int Oct, area=size[0]*size[l]«l; 
short widths size ( 0 ] «1 ; 

char 'topsarea+fchar -Jdata, •lef t=widch+ (char *)daca; 

for (Oct =0; oct I =oct_dst ;oct++ ) { 

long cinc=2«occ, cinc4=cinc«2 , 

rihc=sizetOJ<.-oct+l, rinc4=rinc«2 ; /• col and row increments in t 

!:^fE2^"^^* •»<:iat:a,cinc4,width-cinc.rinc,top) • 

FASTFORWARD( (char •)data, rinc4, area- r inc, ^Inc^S) '; 



} 



void HaarForward( short *data.. int sizeC2], int oct.dst) 

int oct, area=size[0]«size[l]«lT 
short width=size CO] «1 ; 

char *top=area+{char *)data, *lef t=width+ (char *)data; 
for ( oct =0 ; oct • =oct_dst ; oct ++ ) ( 

long cinc=2«oct, cinc2=:cinc«l. 
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rinc=size(OJ«oct^l, rinc2 = rinc«i ; /- coi and row increments in c 

HAARFORWARD{(char *) data. cinc2, width, rinc. topi * 
^ HAAR5-0RWARD( (char * J data , rinc2 , area . cine , left ) 



void HybridForwardi short -data, int sizel21, int oct.dst) 

int Oct, area=size[0] *si2efl]«l; 
short width=sizerO)«l; 

char *top=area+{char *)data, 'left =width-K (char *)data; 

HAARFORWARD((char * 1 data , 4 , width, size fO] «1 , top) ; 
HAARFORWARD((char * ) data , size [0 ) «2 , area, 2 , J ef t ) • 
tor(oct = l;oct I=oct_dst;oct-t-+) { 

long cinc=2«oct, cinc4=cinc«2 , 

rinc=size[0]«oct + l, rinc4=rinc«2 ; /* col and row increments in t 

^^fl;2^^'^^* ^'^^^^ *)data,cinc4,width-cinc,rinc,topj ; 
^ FASTFORWARDt (Char * )data, rinc4 , area-rinc, cine, left) i 



#deiine BwdSO (addrO, dAG, dAH, dBH) ^ 
v=« (short •)addrO; \ 
dAG= -(v3=v+ (vs=v«l) ) ; \ 
dAH=v-t- (vs«=l ) ; \ 
dBH=vs<<l; \ 

#define BwdSl ( addrl, addrO, dAG, dAK, dBH) \ 
v= * ( short * ) addr 1 ; \ 
dBH+= (vs=v«l ) ; \ 
v3=vs+v; \ 
dAG+=v3+ (vs<<=2) ; \ 
dAH-=v3+ (vs«=l) ; \ 
*( short *)addrO=(dBH't.3)»3; 

tdefine Bwd2 ( addr 2 , dAG , dAH , dBG , dBH ) \ 
v=* (short *)addr2; \ 
dBG= - (v3=v-i- ( vs=v<<l) ) ; \ 
dBHt=v+ (vs«=l) ; \ 
dAH-t-=v3+ (vs<< = l) ; \ 
dAG+=v3+ (VS<<=1 J ; 

fdefine Bwd3 (addr3 , addr2 , addrl . dAG, dAH, dBG, dBH) \ 
v='(shcrt •)addr3; \ 
dAH-(-= (v3=v+ ( vs=v«l ) ) ; \ 
dAG + =v+ (v5« = l ) ; \ 
dBG+=v3+(vs«=l) ; \ 
dBH-=v3+(vs«=l) ; \ 
'(short *)addrl=(dAH+7)»4; \ 
'(short •)addr2=(dAG*7)»4; 

#detine BwdO(addrO,dAG,dAH,dBG,dBH) \ 
v=*( short *)addrO; \ 
dAG= - (v3=v+ (vs=v«l) ) ; \ 
dAH=v+ {vs«=l) r \ 
dBH+=v3+(vs« = l) ; \ 
dBG+=v3+ (vs«=l) ; 

#define Bwdl (addr 1 , addr 0 , addr 3 , dAG, dAH. dBG. dBH) \ 
v=»f short •)addrl; \ 
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dBH+={v3=v+(vs=v«l) ) ; \ 

dBG+=v+ ( vs«=l) ; \ 

dAG+=v3+ (vs<v:=l) ; \ 

dAK-=v3+ <vs«=l) ; \ 

* (Shore *)addr3=(dBH+7)»4; \ 

•{shore •)addrO=(dBG+7)»4; 

#define awdE2 (addr2,dAG, dAH.dBH) \ 
v=* (short *)addr2; \ 
v3=v+(vs=v«l) ; \ 
dBH=(vs«=2) ; \ 
dAH+=v3+vs; \ 
dAG+=v3+(vs«=i) ; 

dAH+= (v3=v+(vs=v«l) ) ; \ 
dAG-t-=v+ (vs«=l ) ; \ 
dBH-=v3+(VS« = l) ; \ 
dBH-=v3+{vs«=l) ; \ 
* (shore *)addrl=(dAH-h7)»4; \ 
*(shori: *)addr2=(dAG+7)»4; \ 
*(shorc *)addr3=(dBH+3)»3; 

#define Bwd (base, end, inc) \ 
addrOsbase; \ 
addr3=addr0- (inc»2) ; \ 
addr2=addr3 - ( inc»2 ) ; \ 
addrl=addr2-(inc»2); \ 
BwdSO(addrO,dAG,dAH,dBH) ; \ 
addrl+=inc; \ 

BwdSl(addrl,addrO,dAG,dAH,dBH); \ 
addr2+=inc ; \ 

while (addr2<end) ( \ 

Bwd2 (addr2,dAG,dAH,dBG,dBH) ; \ 
addr3+=inc; \ 

Bwd3 ( addr3 , addr2 , addrl , dAG , dAH , dBG , dBH ) ; \ 
aciarO+ = inc; \ 

BwdO(addrO;dAG,dAH,dBG,dBH) ; \ 
addrl +=inc; \ 

Bwdl ( addrl , addrO , addr3 , dAG , dAH , dBG , dBH ) • \ 
addr2+srinc; \ , ^ 

} \ 

BwdE2(addr2,dAG.dAH,dBH) ; \ 
addr3+=inc; \ 

BwdE3 (addr3 , addr2 , addrl , dAG , dAH, dBH) ; 

tilts. ;sid H^sss.'StJ f°°' '»'=;• i™» '»«• 
'■-i^i.ir=£"^'^imi^^^^^ '""^ 

void FastBackwardCchar 'data, long incl, long endl, long inc2. char .end2) 

nf^jf^" ^!}°" '^3. dAG. dAH, dBG, dBH, inc- 

chC ".bate; ^^"^^^ -add^i, "Ind; 

inc=incl; 

for (base=data; base<end2 ; base*=inc2 ) f 

end=base+endl; 
^ Bwd(base,end. inc) ; 
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Daub43ac]cward( shore -daca.inc size(?],in!: ocr^src) 



inc occ, area=size[0]*sizeCl)«l; 
short width=size ( 0 1 «1 ; 

char *top=area+{char *)data, -lef t=width+ (char *)daca; 

for(occ=occ_src-l;oct>=0;occ--) ( 

long cinc=2«occ, cinc4=cinc«2 , 

rinc=size[0]«occ + l, rinc4=rinc«2 ; /* col and row increments in t 



} 



} 



^^flo^^P"^*^^^^^ *)data, rinc4. area- (rinc«l), cine, left) • 
FASTBACKWARD{ (char *) data. cinc4 . width- (cinc<<i i , rinc" top) i 



void HaarBackward(data,size<oct_src) 

short *data; 

int si2e[2], oct.src; 

{ 

int Oct, area=size[0]*size[l]«l; 

snort width=si2e [0 ] «1 ; 

char *top=area+(char *)data, 'lef t=widthMchar -Jdaca; 

for(oct=oct_src-l;oct>0;oct--) { 

long cinc=2«oct, cinc2=cinc«l, 

rinc=size[0]«octH-l, rinc2=rinc«l ; /* col and row increments in t 

:j^^ta.rinc2,size[13»cct.cinc,size[OJ»oct,; 
^ HAARBACKWARD((char *) data , cinc2 , size fO ] »oct , rinc . size fl] »oct ) i 

HAARTOPBWD((char *) data, size ( 1] , size [0] ) - 
/* HAARXTOPBWD(tchar * ) data, area>>l ) ; */ 

void HybridBacJcward{data, size, oct_src) 

short •data; 

int size{2], oct_src; 

{ 

int oct, area=size(0]*size[13<<i; 

short width=sizeI01«l; 

char *top=area^(char -jdata, • lef t=width+ fchar *)data; 

for [ oct=oct_src - 1 ; oct>0 ; oct -- ) ( 

long cinc=2«oct, cinc4=:cinc«2 , 

rinc=si2e[0]«oct+l, rinc4=rinc«2; col and row increments in t 

FaSc™{ \rtl :!^^^'^inc4,area. (rinc«l) , cine, left ) ; 
^ FASTBACKWARD ( { char * ) data . cinc4 . width- { cinc«l ) , r inc , top ) ; 



HAARTOPBWD { (char * ) data , size U I , size [0] ) ; 
HAARXTOPBWD((char * ) data, area»l) ; V 
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© Copyright 1993 KLICS Limited 
Ail rights reserved. 

Written by: Adrian Lewis 



68000 FastForward/Backward code 



seg 



'klics' 



macro 
FwdStart 

move . w 

move . w 

add.w 

move. w 

add.w 

move . w 

add.w 

add.w 

add.w 

move . w 

add. w 

add.w 

add.w 

add. w 

add.w 

endm 



&addrO , &dAGr &dAH 



macro 
FwdOdd 

move . w 

move . w 

add.w 

move . w 

add.w 

move . w 

add. w 

add.w 

add.w 

move . w 

add.w 

add.w 

sub.w 

add.w 

STib.W 

endm 



macro 
FwdEven 

move . w 
move . w 
add.w 
move . w 



(&addrO) 

dO,dl 

dl,dl 

dl,d2 

d0,d2 

d2,&dAG 

dl,dl 

dO,&dAG 

dl»&dAG 

d2»&dAH 

dl.dl 

dl,£dAH 

d2 , &dAH 

dl.dl 

dl,&dAH 



dO 



v=* (short 

vs=v 

vs«=l 

v3=vs 

v3=vs+v 

dAG=v3 

vs«=l 

dAG-t-=v 

dAG+=vs 

dAH=v3 

vs«=l 

dAH+=vs 

dAH+=v3 

vs«=l 

dAH+=vs 



' ) addrO 



&addr 1 . &dAG , &dAH , &dBG , &dBH 



(&addrl) ,dO 

dO,dl 

dl,dl 

dl,d2 

d0,d2 

d2,&dBG 

dl,dl 

dO,&dAH 

dl,&dAH 

6.2 , &dBH 

dl,dl 

dl , &dBH 

d2 . &dAG 

dl,dl 

dl,&dAG 



v=* (short *)addrl 

vs=v 

vs«=l 

v3=vs 

v3=vs+v 

dBG=v3 

vs«=l 

dAH+=v 

dAH+=vs 

dBH=v3 

vs«=l 

dBH+=:vs 

dAG-=v3 

vs«=l 

dAG-=vs 



&addr2 , &addrl , &addrO , &dAG, &dAH, &dBG, &dBH 



(&addr2) ,dO 
dCdl 
dl,dl 
dl,d2 



v=* (short 

vs=v 

vs«=l 

V3=:VS 



^)addr2 
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add.w 
sub.w 
add . w 
add. V 
add. w 
add. w 
add. w 
add . w 
add. w 
add.w 
add.w 
clr .w 
asr .w 
addx.w 
asr.w 
addx.w 
move . w 
move. w 

mend 





; v3=vs+v 




; dAH-=v3 


m ^^^^ 


; vs<<=l 




: dBG+=v 




; dBG+=vs 


d2 , &dAG 


»* dAG+=v5 


dl.dl 


; vs<<=l 


dl . &dAG 


; dAG+=vs 


d2,&dBH 


; dBH+=v5 


dl.dl 


; vs«=l 


dl . &dBH 


; dBH+=vs 


dO 


; dOrO 


#5,&dAH 


; dAH»=5 


dO.&dAH 


; round dAH 


#5.&dAG 


; dAG»=5 


dO , &dAG 


; round dAG 


&dAH, (&addrO) 


; *( shore •)addrO=dAH 


&dAG, (&addrl ) 


; "(shore •)addrl=dAG 



macro 
FwdEnd 

move . w 
add.w 
add.w 
Isl.w 
sxxb.w 
clr .w 
asr.w 
addx. w 
asr . w 
addx.w 
move . w 
move . w 

endm 



&addr 3 , taddr2 , &dBG . &dBH 



{&addr3) ,dO 

dO,dO 

dO.&dBH 

#2, do 

do . &dBG 

do 

#5,&dBH 
do , &dBH 
#5.&dBG 
do , &dBG 
&dBH, (&addr2) 
&dBG, {fi:addr3) 



v=*( short ♦)addr3 

v« = l 

dBH+=v 

v«=2 

dBG-=v 

dOnO 

dBH»=5 

round dBH 

dBG» = 5 

round dBG 

'(short *)addr23dBH 
♦(short *)addr3=dBG 



macro 

&base, &end, tine 

movea.l &base,aO 

move.l &inc,dO 

asr.l #2,d0 

movea.l a0.a3 

suba.l d0.a3 

movea .1 a3 » a2 

suba .1 do , a2 

movea .1 a2 , al 

suba .1 do , al 

FwdStart a0,d4,d5 

adda.l &inc,al 

FwdOdd al , d4 , dS , d6 , d7 

adda.l &inc,a2 

FwdEven a2 , al , aO , d4 » d5 , d6 , d7 

adda.l &inc,a3 

FwdOdd a3 , d6 , d7 , d4 , d5 

adda.l &inc,a0 

FwdEven aO , a3 , a2 , d6 , d7 , d4 , d5 

adda.l &inc,al 

FwdOdd al , d4 , d5 , d6 , d7 

adda.l &inc,a2 



addrO=base 

dO=inc 

d0=inc»2 

addr3=addrO 

addr3-= (inc»2 ) 

addr2=addr3 

addr2-= {inc>>2) 

addrl=addr2 

addrl-= (inc>>2) 

FwdStart (addrCdAG, dAH) 

addrl+=inc 

FwdOdd ( addr 1 , dAG , dAH . dBG , dBH ) 
addr2+=:inc 

FwdEven ( addr 2 , addrl , addr 0 , dAG , dAH , dB- 
addr3+=inc 

FwdOdd ( addr 3 , dBG , dBH , dAG , dAH ) 
addr0+=inc 

Fv?d£ven ( addrO , addr3 , addr2 , dBG , dBH , dA- 
addrl+=inc 

FwdOdd ( addrl , dAG . dAK , dBG . dBH ) 
addr2+=inc 



wo 94/23385 



PCT/GB94/00677 



- 719 



Engineering : KiicsCode : CoinpPicc : ConvoiveSH3 . a 



FwdEven 
adda . 1 
cmpa . 1 
bgt .w 
FwdEnd 

endm 



a2,al,a0,d4,d5,d6,d7 
&inc, a3 
a 3 , &end 
@do 

a3,a2,d6,d7 



FastForward FUNC EXPORT 



(3 do 



link 
movem. 1 

nvove. 1 
movea . 1 
movea . X 
adda. 1 
Fwd 
adda . 1 
cmpa. 1 
bit.w 

movem. 1 

unlk 

rts 

ENDFtINC 



a6,#0 

d4-d7/a3-a5, -{a7) 

$000C{a6) ,d3 
S0008(a6) ,a5 
a5,a4 

$00I0(a6),a4 
a5,a4.d3 
$0014 (a6) ,a5 
$0018{a6) ,a5 
0do 

(a7)+,d4-d7/a3-a5 
a6 



; FwdEven (addr 2, acdrl,addrO,dAG, dAH,d& 
; addr3+=inc 
; addr3<end 
; while 

; FwdEnd(addr3,addr2,d3G,dBH) 



no local variables 
score registers 

inc=incl 

base=data 

end=base 

end+=endl 

Fwd (base, end, inc) 

base-t-=inc2 

end2>base 

for 

restore registers 
remove locals 
return 



macro 
BwdStartO 

move . w 
move.w 
add. w 
add. w 
move . w 
neg. w 
move . w 
add. w 
Isl.w 
move . w 

endm 



&addrO , &dAG, &dAH, &dBH 



(iaddrO) ,dO 
dO,dl 
dl.dX 
dX,dO 
dO,&dAG 
&dAG 
dO,&dAH 
dl,&dAH 
#2,dl 
dl,&dBH 



; v= * ( short * ) addr 0 
; vsssv 

; vs«=l (vs=2v) 

; v+=vs (vr:3v) 

; dAG=v3 

; dAG= -dAG 

; dAH=v 

; dAH+=vs 

; vs«=2 (vs=8v) 

; dBH=vs 



macro 
BwdStartl 

move . w 
move . w 
add, w 
add. w 
add.w 
Isl.l 
add.w 
add.w 
add.w 
sub.w 
clr .w 
asr , w 
addx.w 
move . w 

endm 



&addrl , &addrO , &dAG , &dAH, idBH 

(&addrl) ,dO 
dO,dl 
dl,dl 
dl,&dBH 
dl.dO 
#2,dl 
dl,dO 
dO , &dAG 
dl,dO 
dO,&dAH 
do 

#3 , &dBH 
do , &dBH 
&dBH, CtaddrO) 



v=* {short *)addrl 
vs=v 
vs«=l 
dBH+=vs 
v+=vs {v=3v) 
vs«=2 (vs=8v) 

V+=:VS {V=llv) 

dAG*=v 

v+=vs (v=19v) 
dAH-=v 
dO=0 
dBH»=3 
round dBH 

•(short *)addra=dBH 
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macro 

BwdEven &addr2 , &dAG , &dAH . idBG , &dEH 





iiiu V e . w 


(&addr2) ,dO 


• v=* (shore •)addr2 




move . w 


dO,dl 


vs=v 




add. w 


dl,dl 


• vs<<=l (vs=2v) 




add . w 


dl,dO 


v+=vs (v=3vl 




move . w 


dO,&dBG 


dBG=v 




neg. w 


&dBG 


dBG= -dBG 




move . w 


dO , &dBH 


dBH=v 




add.w 


dl , &dBH 


dBH+=vs 




Isl.w 


#2.dl 


vs«=2 {vs=8v) 




add.w 


dl , do 


v+=vs (v=llv) 




add.w 


dO , &dAH 


dAH+=v 




add.w 


dl,dO 


v+=vs (v=19v) 


* 


add.w 


do , &dAG 


dAG*=v 




endm 








macro 








BwdOdd 


&addr 3 , iaddr2 , &addr 1 , &dAG . &dAH , &dBG . &dBH 




move . w 


t &addr3 ) , dO 


v=» (short *)addr3 




move . w 


dO,dl 


vs=v 




add.w 


dl,dl 


vs«=l (vs=2v) 




add.w 


dl.dO 


v+=vs {v=3v) 




add. w 


dO.&dAH 


dAH*=v 




add.w 


dO , &dAG 


dAG-^=v 




add.w 


dl , &dAG 


dAGi-=vs 




Isl.w 


#2,dl 


• vs<<=2 (vs=8v) 




add. w 


dl,dO 


v-t-=vs |v=llv) 




add. w 


do , tdBG 


• dBG+=v 




add . w 


dl,dO 


v+=vs (v=19v) 




su^ . w 


do , &dBH 


dBH-=v 


« 


c Ir . w 


dO 


• d0=6 




asr . w 


#4,&dAH 


• dAH» = 4 




addx . w 


do , &dAH 


round dAH 




move . w 


fitdAH. (&addrl> 


* (shore •)addrl=dAH 




asr . w 


#4 , &dAG 


dAG»=4 




addx. w 


do , &dAG 


' round dAG 




move . w 


tdAG. (&addr2) 


* (short •)addr2=dAG 




endm 








macro 








3wdEnd2 


&addr2 , &dAG . &dAH , &dBH 




move . w 


(&addr2) .dO 


• v=*{ short *)addr2 




move . w 


d0,dl 


; vs=v 




add.w 


dl,dl 


; vs«=i (vs=2v) 




add.w 


dl,d0 


; V+=VS (V=3v) 




Isl.w 


#2,dl 


; vs«=2 (vs=Sv) 




move . w 


dl,&dBH 


; dBH=vs 




add.w 


dl,d0 


; V+=VS (V=11V) 




add.w 


d0,&dAH 


; dAH+=:V 




add.w 


dl.dO 


; V+=VS (V=19v) 


* 


add.w 


dO , &dAG 


; dAG+=v 


• _ _ _ 


endm 







macro 

3v;dEnd? taddr"* . Jt addr2 , &adrlrl , &dAG . &dAH , &dBH 
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0do 



move . w 

move . V/ 

add.w 

add.w 

add.w 

add.w 

add.w 

add.w 

Isl.l 

sub.w 

cir.w 

asr.w 

addx.w 

move . w 

asr.w 

addx.w 

move . w 

asr.w 

addx.w 

move . w 

endm 



(&addr3) ,dO 

dO,dl 

dl,dl 

dl.dO 

dO,&dAH 

dO.&dAG 

dl,&dAG 

dl,&dBH 

#4,dl 

dl,&dBH 

do 

#4,&dAH 
dO,&dAH 
&dAH, (&addrl) 
#4 , &dAG 
dO,&dAG 
&dAG, {&addr2) 
#3 , &dBH 
do , &dBH 
&dBH, (&addr3) 



Maddr3 



(vs=2v) 
(v=3v) 



(v=32v) 



; v=* (shore 
; vs=v 
; vs«=l 
; v+=vs 
r dAH+=v 
■ dAG+=v 
' dAG-«-=vs 

dBH+=vs 

vs<<=4 

dBH-=vs 

dO=0 

dAH»=4 

round dAH 

* (shore *)addrl=dAH 

dAG»=4 

round dAG 

*( short ')addr2=dAG 

dBH»=3 

round dBH 

♦(short *)addr3=dBH 



macro 
Bwd 

movea . 1 
move . 1 
asr . 1 
movea . 1 
sxiba. 1 
movea. 1 
suba . 1 
movea. 1 
suba. 1 
BwdStartO 
adda.l 
BwdStarcl 
adda , 1 
BwdEven 
adda . 1 
BwdOdd 
adda . 1 
BwdEven 
adda.l 
BwdOdd 
adda . 1 
cmpa.l 
bgt 

BwdEnd2 
adda . 1 
BwdEnd3 

endm 



&base, &end. &inc 

&base» aO 
&inc, do 
#2, do 
a0,a3 
d0,a3 
a3,a2 
d0.a2 
a2, al 
dO,al 

a0,d4,d5,d7 
&incr aX 

al,aO,d4,d5,d7 
^inc a2 

a2,d4,d5,d6,d7 
&inc, a3 

a3.a2,al,d4.d5,d6,d7 
&inc, aO 

a0,d6,d7,d4,d5 
&inc, al 

al,aO,a3,d6,d7,d4,d5 
&inc , a2 
a2 , &end 
@do 

a2,d4,d5,d7 
&inc, a3 

a3,a2,al,d4,d5,d7 



PastBackward FUNC 



EXPORT 



link 
movem. 1 

move - 1 
movea . 1 



a6,#0 

d4-d7/a3-a5,- 

$00OC(a6) ,d3 
S0008(a6) ,a5 



•(a7) 



addrOsbase 

dO=inc 

d0^iiic»2 

addr3=addr0 

addr3-=(inc»2> 

addr2=addr3 

addr2-=(inc»2) 

addrl=addr2 

addrl-=(inc»2> 

BwdStartO ( addrO , dAG , dAH , dBH ) 

addrl+=inc 

BwdS t ar 1 1( addr 1 , ajddr 0 , dAG , dAH , dBH ) 
addr2-^=inc 

BwdEven ( addr2 , dAG , dAH . dBG , dBH ) 
addr3+=inc 

BwdOdd ( addr 3 . addr2 , addr 1 , dAG , dAH , dBG 
addrO-^sinc 

BwdEven ( addr 0 , dBG , dBH , dAG , dAH ) 
addrl+=iTic 

BwdOdd ( addr 1 , addrO , addr3 , dBG , dBH , dAG 

addr2+=inc 

addr2<end 

while 

BwdEnd2 ( addr 2 . dAG . dAH , dBH ) 
addr3+=inc 

BwdEnd3 ( addr 3 , addr2 , addrl , dAG , dAH, dB: 



no local variables 
store registers 



inc=incl 
base=data 



wo 94/23385 



PCT/GB94/00677 



- 722 - 

Engineering: KlicsCode:Comp?icc :ConvoiveSH3 . a 



movea . 1 
adda . 1 
Bwd 

adda . i 
cmpa. i 
blew 


a5 , a4 

$0010(a6) ,a4 
a5,a4,d3 
S0014ta6),a5 
S0018(a6) ,a5 
@do 


; end=base 

; end-»--endl 

; Bwd (base, end, inc) 

; base+=inc2 

; end2>base 

; for 


movem. 1 

unlk 

rts 


(a7) + ,d4-d.7/a3-a5 
a6 


; restore registers 
; remove locals 
; return 


ENDFUNC 






END 
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© Copyright 1993 KLICS Limiced 
All righcs reserved. 

Written by: Adrian Lewis 



*^ Test versions of colour space conversions in C 



^include <Memory.h> 
# include <QuickDraw. h> 

tdefine NewPointer(ptr, type, size) \ 
saveZone=Get2one ( ) ; \ 
SetZone(SysceniZone() ) ; \ 
if inii== (pcr= (type )Nev/Ptr( size) ) ) { \ 
SetZone ( ApplicZone { ) ) ; \ 
if (nil==(pcr=(type)NewPtr(size) ) ) { \ 
SetZone ( saveZone ) ; \ 
return (Memory Error ( ) ) ; \ 

} \ 

SetZone ( saveZone ) ; 

typedef \inion { 

long pixel ; 

char rgb[4] ; 
) Pixel; 

/* Special YUV space version */ 
#define rgb_yuv(pixinap, Ycj \ 

pixel. pixel=0x808080'"*pixinap++; \ 

r= ( short ) pixel . rgb [ 1 ] ; \ 

g= (short) pixel. rgbC2 ] ; g+=g; \ 

b=(short)pixel.rgbi3J ; \ 

y=(b«3)-b; \ 

g+=r; \ 

Y+=g+g+g; \ 

Y»=4; \ 

Y-=g; \ 

•YCf+^Y; \ 

Y»=2; \ 

U+=b-Y; \ 

V+=r-Y; 

^define limit (Y, low, high) \ 

Y< ( low«2 ) ?low«2 : Y> (high«2 ) ?high«2 : Y 

iLf^^'^^K version - Bt294 CR07(0) mode limiting V 

#aefine rgb_yuv32 (pixmap, Yc) \ 

pixel. pixel=0x808080^*pixmap++; \ 

r = ( long ) pixel . rgb [ 1 ) ; \ 

g= (long) pixel. rgbf 2] ; \ 

b= ( long ) pixel . rgb [ 3 ] ; \ 

Y= (306*r + 601»g + 117*b)»8; \ 

*Yc++ = limit (Y, 16-128, 235-128); \ 

U+= {512*r - 429*g - 83*b)»8; \ 

V+= (-173*r - 339*g * 512*b)»8; 

void RGB2YUVr32flnng -pixmap. short -Yc, short *nc. shorn *Vc, int area, int wid 
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{ 

long *pixiiiap2=pixmap+cois. -row, •end=pixmaD-ha-ea • 
shore *Yc2=Yc+width; * ' ' 

while (pixinap< end) ( 
row=pixmap+widch; 
while (pixmap<row) { 
Pixel pixel; 
long r,g,b,y,O=0,V=0; 

rgb,iruv32 (pixmap, Yc) ; 
rgb_iniv32 (pixmap, Yc) ; 
rgb_yuv32 {pixmap2 , Yc2 ) ; 
rgb_^v32 (pixmap2 , Yc2 ) ; 
D»=2; 
V»=2; 

*Uc++ = liinit (a, 16-128,240-128) ; 
•Vc++=liinit CV, 16-128,240-128) ; 

pixmap+=co Is +cols- width; 

pixmap2+=cois+cols-widch; 

Yc+=width; 

Yc2+=width; 

) 

) 

cypedef struct { 

short ry, rv, ]py, bu; 
) RGB_Tab; 

OSErr RG BT able ( long '-tab) 

{ 

RGB_Tab ♦table; 

int i ; 

THz saveZone ; 

NewPointer(table,RGB_Tab*,256»si2eof (RGB Tab) ) • 
♦tab=Clong *) table; 
for(i=0;i<128;i++) { 

tabled] .ry=306*i»8; 

tabled] .rv=173*i»8; 

table[i] .by=117*i»8; 

tabled] .bu=83*i»8; 

) 

ford = 128;i<256;i++) { 

cable [i] . ry=306* ( i-256) »8 ; 

cableli) .rv=173Mi-256)»8; 

table [i] .by=117 • { i-256) »8 : 
^ table [i] .bu=83* (i-256)»8; 

recurn(noErr) ; 

} 

typedef struct { 

short ru, gu, bv, gv* 
) UV32_Tab; 

tJV32_Tub *UV32_Table( ) 

{ 

UV32_Tab ♦table; 
int i ; 

cable=r ( uv32_Tab ♦ ) NewPtr f256*si2eof fUV32_Tab) ) : 
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} 



for(i=0;i<128;i++) { 

cable(i) . ru=128+ ( 1436*i>>10 ) 
cabled] .gu=128+ (-731*i»i0) 
cablefi] .bv=128+ {1915*i»10) 

^ cable[i] .gv=-352*i»10; 

for{i=128;i<256;i++) { 

table [i] .ru=128* ( 1436* ( i-256) »10) 
tablefi] .gu=128-K (-731* (i-256)»10) 
tabled] .bv=128-h ( 1815* (i-256) »10) 

^ tabled] .gv=-352*{i-256)»10; 

reciim{ cable) ; 



cypedef struct { 

long u, v; 
} CJV32Tab; 

OSErr UV32Table (long ••tab) 

long *ytab; 
UV32Tab *uvtab; 
inc i; 
THz saveZone; 

uvcab=(UV32Tab*)&ytab[512] ; 
for(i=-256;i<256;i++) ( 
long yyy, sp; 

sp=0x000000fe&(i<-128?0;i>127?255:i+123) • 
yyy=sp; yyy«=8; 

yyy(=sp; yyy«=:8; 

yyy i=sp; 

^ ytab[OxO00OOlf f&i]riyyy; 

for(i=-256;i<256;i++) { 
long ru,gu,bv,gvr 

ru=Oxffff£ffe & {1436*i»10); 

gu=OxO00O01fe & {-731*i»10); 

bv=0x000001fe & (1815«i»10); 

gv=0x000001fe & (-352*i»10); 

uvcab[0xOOO001FF&i] .u=((ru«8) lgu)«8; 
^ uvtab[Ox000001FF&i) .v=(gv«8) Ibv; 

recum(noErr) ; 



) 

typedef struct { 

shore u, v; 
) UVlSTab; 

OSErr UV16Table{long ♦*tab) 

short *ycab; 
avi6Tab 'uvcab; 
inc i: 
THz saveZone; 
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NewPoincer ( ♦tab, long* , 512*si2eof (shori)+512*si2eof {UV16Tab) ) ; 
yrab=* (short **)tab; 
uvtab= { UV16Tab* ) ficytab (512]; 
for ( i = -256 ; i<256 ; i-*-+ ) { 
long yyy, sp; 

sp=0x0000001e&( {i<-12B?0:i>127?255:i + 128)»3) ; 
yyy=sp; yyy«=5; 
yyyl=sp; yyy«=5; 
yyyl=sp; 

ytab[0x000001f fti)=yyy; 
} 

for(i=-256;i<256;i++l { 
long ru,gu,bv, gv^- 



rurrOxf ff f fffe & (1436*i>>13) 

gu=0x0000003e & (-731*i>>13) 

bv=0x0000003e & {1815*i»13) 

gv=0x0000003e & (-352*i»13) 



uvtab[0xO0OOOlFFti] .u=( (ru«5) Igii)«5; 
uvtab[OxOOOOOIFFiij .v=(gv«5) Ibv; 

) 

return (noErr) ; 



#derine over{val) \ 

( (OxFFOO&ival) ) == 0) ? (char )val :val<0?0 : 255 



/* Standard YUV space version */ 
#de f ine yuv_rgb3 2 ( pixmap , Yc) \ 
Y=(*Yc+H.)»2; \ 
pixel. rgbCl] =over(Y+r) ; \ 
pixel. rgbf2] =over (Y+g) ; N 
pixel.rgbC3} =over (Y+b) ; \ 
*pixinap++=pixel . pixel ; 



void YUV2RGB32 ( long *pixmap, short *Yc, short "Uc, short *.Vc» int area, int wid 
{ 

long •pixinap2=pixinap+cois , •row, *end=pixinap+area ; 
short *Yc2=Yc-»-width; 

while (pixmap<end) { 
rowspixinapf width ; 
while (pixmap<r owl { 

Pixel pixel; 

long r,g,b,Y,U.V; 



U=(*Uc-t-+)»2; 
V=(*Vc++>»2; 
r=128+(1436*U»10); 
g=128+(-731»U - 352*V»10); 
b=128+{1815*V»10) ; 



yuv_rgb3 2 { p ixmap , Yc ) ; 
yuv_rgb3 2 (pixmap , Yc ) ; 
yuv_rgb32 (pixmap2 , Yc2 ) ; 
yuv_rgb32 (pixmap2 , Yc2 ) ; 

) 

pixniap+=cois+cols-widch; 
pixinap2 f =col s+cois -width ; 
Ycf =width: 
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Yc2+iwidt:h; 

) 

} 

#define rgb32_yuv(pixmap, Yc) \ 

pixel. pixel =0x8 08 08 0'^*pixinap-i-+; \ 
r=pixel.rgb[ll : \ 
g=pixel.rgb[2) ; \ 
b=pixel.rgb(3] ; \ 

Y= (table ( OxFF&r] .ry + {g«2 )- table f OxFFtg ] .ry- table [OxFF&g] .by + table[OxFF&b 
*Yc++ = limitCY, 16-128,235-128); \ 

U+= (r«l) -g -cable tOxFF&g] .rv - table ( OxFFfitb] .bu; \ 
V+= (b«l) -g -cable [OxFF&r] .rv - cable [OxFF&g] ,bu; 

void RGB32YUV(RGB_Tab •table, long *pixiTiap, short *Yc, short *Uc, short *Vc. int 
( 

long *pixmap2=pixmap+cols, *row, *end=pixmap+area; 
short *Yc2=Yc+width; 

while (pixiiiap<end} ( 

rowspixmap+width; 

while (pixmap<row) ( 
Pixel pixels- 
long r,g,b,Y,U=0,V=0; 

/* rgb32_yuv(pixmap, Yc> ;*/ 

pixel. pixel=0x808080'^*pixinap++ ; 
r=pixel.rgb[ll ; 
g=pixel . rgb [ 2 ] ; 
b=pixel.rgbf3] ; 

Y= ( table [ OxFFtr ] .ry + (g«2) -table [OxFF&g] . ry- cable [OxFF&g] .by tabl 
*Yc++ = limit (Y, 16-128,235-128); 

U-i-= (r«l) -g -cable COxFF&gl .rv - table [ OxFF&b] .bu; 
V-»-= (b«l) -g -table COxFFir ] .rv - table[OxFF&gJ .bu; 

rgb3 2_yuv ( pixmap , Yc ) ; 
rgb3 2_yuv ( pixmap2 . Yc2 ) ; 
rgb3 2_yuv (pixmap2 , Yc2 ) ; 
U»=2; 
V»=2; 

♦Uc++ = limit (D. 16-128, 240-128) ; 
*Vc++=limiC (V, 16-128 . 240-12 8 ) ; 

) 

pixinap+=cols+cols-widch; 

pixinap2-i-=cols+cols-width; 

Yc+=wiach; 

Yc2+=width; 

) 

} 



#define yuv_rgb32x2 (pixmap. Y) \ 
pixel . rgb [ 1 ] =over ( Y+r ) ; \ 
pixel . rgb ( 2 ] =over ( Y+g ) ; \ 
pixel . rgb [ 3 ] =over ( Y+b ) ; \ 
pixmap (CO Is ] =pixel. pixel; \ 
•pixmap++=pixel . pixel ; 



void YUV2RGB32x2(DV32_Tab * table, long •pixmap, short ♦Yc. short •Oc, short *Vc, 
{ 

long *pixmap2=pixmap+2*cols, *row, "endspixmap+area; 
shore •Yc2=Yc+width; 
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whi 1 e ( p ixmap<end ) { 

long Yold=*Yc»2, Yold2 = *Yc2»2 ; 

row=pixmap+widch*2 ; 
while (pixinap< row) { 

Pixel pixel; 

long r,g.b,Y.U,V; 

U=OxOOFF& { ( *Dc++ ) »2 ) ; 
V=OxOOFF&( f*Vc++)»2) ; 
r=cable[U] .ru; 
g=cable(U) .gu-t-cable(V] .gv; 
b=table[Vl .bv; 
Y=(•Yc++)»2; 
Yold= (Y+Y0ld)»l; 
yuv_rgb32x2 (pixinap, Yold) ; 

Yold=Y; 

yuv_rgb32x2 (pixmap, Yold) ; 

Y=(*Yc*-+)»2; 
Yold=(Yt-Yold)»l; 
yuv_rgb32x2 (pixmap, Yold) ; 

Yold=Y; 

yuv_rgb32x2 {pixmap, Yold) ; 

Y=(*Yc2++)»2; 
Yold2= (Y+Yold2)»l; 
yuv_rgb32x2 (pixmap2, Yold2 ) ; 

Yold2=Y; 

yuv_rgb32x2 {pixmap2 , Yold2 ) ; 

Y=(*Yc2++)»2; 
Yold2= ( Y+Yold2 ) »1 ; 
yuv_rgb32x2 (pixmap2 , Yold2 ) ; 

Yold2=Y; 

yuv_rgb32x2 (pixraap2 , Vold2 ) ; 

) 

pixinap*=4*cols-2*widch; 

pixmap2+=4*cols-2*width; 

Yc+swidth; 

Yc2+=width; 

} 

) 

#define yuv.rgb8(pixel,Yc,index,dith) \ 
Y=*Yc++; \ 
Y«=3; \ 
Y&= 0x3F00; \ 
Vl= U; \ 

pixel. rgb(index]=tableCY] .rgbfdith) ; 

void Yav2RGB8 (Pixel *cable,long ♦pixmap, short -Yc, short 'Uc. short *Vc, inc a 

long •pixinap2=pixinap+cols/i, *row, ♦end=pixmap+area/4 ; 
shore *Yc2=Yc+width; 

while (pixinap<end) ( 
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row=pi;cmap+width/4 ; 
while (pi jaiiap<row) { 

Pixel pixel, pixel2; 

long Y,U,V; 

U=*ac+^-; 
V=*Vc++; 
U»=2; 
V»=6; 

U= {U&OxFO) I (V&OxOF); 

yuv_rgb8 (pixel , Yc, 0 . 3 ) ; 
yuv_rgb8 (pixel , Yc, 1 , 0 ) ; 
yuv_rgb8 (pixel2 , Yc2 .0,1); 
yuv.rgbS ( pixel2 , Yc2 ,1,2); 

0=*Dc++; 
V=*Vc++; 
U»=2; 
V»=:6; 

U= (U&OxFO) I (V&OxOF); 

yuv_rgb8 (pixel, Yc, 2 , 3 ) ; 
yuv_rgb8 (pixel, Yc, 3, 0) ; 
yuv_rgb8 (pixel2 , Yc2 ,2,1); 
yuv_rgb8 (pixel2 , Yc2 ,3,2); 

^pixmap+'hspixel . pixel ; 
^ •pixinap2 ++=pixel2 . pixel ; 

pixmap+= (col s+co Is -width) /4 ; 
pixinap2+= (col s+cols -width) /4; 
Yc+=width; 
Yc2-f=width; 



) 



#define y^v rgb8x2 4 pixel, pixel2, Y, index, dith, dith2 ) \ 
ia= UXjFOO; \ 
YI= U; \ 

pixel. rgbf index] =table{Y] .rgb[dithl; \ 
pxxel2.rgb( index] =tabletY] .rgb(dith2] ; 

void 

sho?. '^^-^ •end=pixinap*area/4; 



^ YUV2RGB8X2 (Pixel -table, long -pixmap, shore -Yc, short 'Uc, short ^Vc/ int 



short *Yc2=yc+width; 

while (pixraap<end) { 

long Yold=*Yc«3, Yold2=*Yc2«3 ; 

row=pixinap+width/2 ; 
whi le ( pixrnap<row ) ( 

Pixel pixel, pixel2, pixel3, pixel4; 

long Y,U,V; 

D=*UC++; 
Vs*Vc-f+; 
D»=2; 
V»=6; 

U= (U&OxOOFO) I (V&OxOOOF); 



Y=f*Yc++)«3; 
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Yold=(Y+Yold)»l; 

yuv_rgb8x2 (pixel,pixel2, Y, 0, 3, 1) ; 

YoldrY; 

yuv_rgb8x2 (pixel , pixel2 . Y , 1 , 0 , 2 ) ; 
Yold=Y; 

Y=CYc^-+)«3; 

Yold=(Y+Yold)»X; 

yuv_rgb8x2 {pixel ,pixel2 , Y. 2 , 3 , 1) ; 

Yold=Y; 

yuv_rgb8x2(pixei,pixel2, Y,3,0,2) ; 
Yold=Y; 

Y={*Yc2++)«3; 

Yold2= ( Y+Yold2 ) »I ; 

yuv_rgb8x2 (pixel3,pixel4, Y, 0, 3, 1) ; 

Yold2=Y; 

yuv_rgb8x2 ( pixel 3 , pixel 4 , Y, 1 , 0 , 2 ) ; 
Yold2=Y; 

Y=CYc2-H+)«3; 

Yo ld2 = ( Y+ Yo ld2 ) » 1 ; 

yuv_rgb8x2 ( pixel3 , pixel4 . Y, 2 . 3 , 1 ) ; 

Yold2=y; 

yuv_rgb8x2 (pixel3 , pixel4 , Y, 3 , 0 , 2 ) ; 
Yold2=Y; 

pixmap [cols/4) =pixel2. pixel; 
*pixinap++=pixel , pixel ; 

pixmap2[cols/4]=pixel4. pixel; 
^ *pixmap2++=pixel3 .pixel ; 

pixmap+= ( col s+cols- width ) /2; 
pi3cinap2+= (cols+cols-width) /2; 
Yc+=width; 
Yc2i.=widch; 

) . 

) 

^define yuv_rgbTEST ( pixel , index, Y) \ 
rgb_col.red=(Y+r«8); \ 
rgb_col .green= (Y+g«8 ) ; \ 
rgb_col.blue= (Y+b«8) ; \ 
pixel . rgb [ index] =:Color2 Index ( &rgb_co 1 ) ; 



void YUV2RGBTEST(UV32_Tab *table,long -pixmap, short *Yc. short *Uc, short *Vc, 

long *pixn:\ap2=pixinap+cols/2, *row, *end=pixrnap-t'area/4 ; 
short •Yc2=Yc+width; 

while (pixmap<end) { 

long Yold=*Yc«3, Yold2 = *Yc2«3 ; 

row=pixinap+width/2 ; 
while (pixmap<row) ( 

RGBColor rgb_ccl ; 

Pixel pixel, pixel2; 
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long r,g,b,Y.U,V; 

U=OxOOFF& { ( *UC++ ) »2 ) ; 
V=OxOOFF& ( { *Vc+-i. ) »2 ) ; 
r=table[U] .ra; 
g=tablefU} .gu+table [V] .gv;. 
b=table[V] .bv; 

y=(*Vc++)»2; 

Yold=(Y+Yold)»l; 

rgb_col. red= (Yold+r«8) ; 

rgb_col . green= ( Yold+g«8 ) ; 

rgb_col.blue=(yold+b«8) ; 

pixel. rgb[03 =Color2lndex (&rgb_col) ; 

Yold=Y; 

yuv_rgbTEST (pixel , 1 , Yold) ; 

y=(*Yc++)»2? 
Yold=(Y+Yold)»l; 
yuv_rgbTEST (pixel, 2 , Yold) ; " 

Yold=Y; 

yuv_rgbTEST (pixel, 3 , Yold) ; 

y=(*Yc2++)»2; 
Yold2 = ( y + Yo ld2 ) » 1 ; 
yuv_rgbTEST (pixel2 , 0 , Yold2) ; 

Yold2=Y; 

yuv_rgbTEST (pixel2 , 1, Yold2 ) ; 

Y=(*Yc2++)»2; 
Yold2=(y+Yold2)»l; 
yuv.rgbTEST (pixel2 , 2 , Yold2 ) ; 

Yold2=Y; 

yuv_rgbTEST (pixel2 , 3 , Yold2 ) ; 

pixmap [cols/4 ] =pixel . pixel; 
*pixmap++=pixel .pixel, • 

pixinap2 [cols/4] =pixel2. pixel; 
*p ixmap2i-+=pixe 12 .pixel ; 

) 

pixmap+=(cols+cols-width) /2; 
pixmap2+=(cols-»-cols -width) /2; 
Yc+=width; 
Yc2+=width; 
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@ Copyrighc 1993 KLICS Limiced 
All rights reserved. 

Written by: Adrian Lewis 



68030 Colour space conversions 



machine 
seg 

include 



mc68030 
' klics • 
'Traps .a • 



macro 
DPY32x2 

add.l 
Isr.l 
add.l 
Isr.l 

move . 1 
add.l 
move . 1 
add. 1 
move . 1 
add.l 
move . 1 

move . 1 
sub. 1 
move. 1 
sub. 1 
move . 1 
sub.l 
move . 1 

endm 



macro 
DPY32 

move . 1 
add.l 
move . 1 

move. 1 
sub. 1 
move . 1 

endxn 



macro 
UV2RGB32 

add.l 

move . w 
Isr . w 
and. w 



tARGB, &row, &oO, &ol, &nO, &nl 



knO , &oO 
#l.&oO 
inl, &ol 
#l,&ol 

600, (&ARGB) 
&row, &ARGB 
too. (&ARGB) 
&.row, &ARGB 

601, (iARGB) 
&row,&ARGB 
&ol, (&ARGB}-< 

tnl, (&AilGB) 
firow, &ARGB 
&nl, (&ARGB) 
&row,&ARGB 
&nO, (&ARGB) 
&row,&ARGB 
&nO, (&ARGB)+ 



interpolate first pixel 
interpolate first pixel 



&ARGB, krow, ioO, &oi, &nO. &nl 

600, (iARGB) 
&row, tARGB 

601, (tARGBl-r 

&nl. (&ARGB) 
&row, &ARGB 
&nO r { &ARGB ) ^- 



&AU,iAV,&TAB 

#2048,&TAB 

&AU,dl 

#2,dl 

#S01FF.dl 



; move to uvtab 
; Load U 
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move . 1 


{&TAB,cil.w*8) ,dO 


; UV now rg (u) 


move . w 


&AV,dl 


; Load V 


Isr .w 


#2,dl 




and.w 


#$OlFF,dl 




ad^.l 


4(&TAB,dl.W8) ,dO 


; Crv now rgb 


move . 1 


dO,dl 


; 3 copies 


move. 1 


d0,d2 




move , 1 


dO,d3 





STib.l #2048. &TAB ; restore ytab 

en dm 



macro 

GETY32 iAY, &RGBO, tRGBl 

move.l tAY,d4 ;y 

Isr.w #2,d4 

and.w #$01FF.d4 

add.l (&TAB,d4.w*4) , &RGB1 ; RGBl+=YYy 



swap d4 

Isr.w #2,d4 

and.w #S01FF,d4 

add.l (StTAB,d4 .w*4) , &RGBO ; RGBO + =YyY 

endro 

macro 

OVER32 &RGB 



@i)ic8 



Gend 
@nx_rgb 



move - 1 


&RGB,d4 


r copy pixel 


andi. 1 


#$01010100. d4 


'f was it this rgb 


beg. 5 


@iix rgb 


r if not then quit 


btst 


#24. d4 


' R overflow? 


beq. s 


©bitl6 


• if not then continue 


btst 


#23.&RGB 


• test sign 


beq. s 


@pos23 


if positive 


and! . 1 


#$0OO0ffff ,tRGB 


underflow sets R to 0 


bra. s 


@bitl6 


do next bit 


ori- 1 


#$00ff OOOO.tRGB , 


overflow sets R to 255 


btst 


#16, d4 


G overflow? 


beq.s 


GbitS 


if not then continue 


btst 


#15.&RGB 


test sign 


beq.s 


@posl6 


if positive 


andi.w 


#$00f f ,&RGB 


underflow sets G to 0 


bra.s 


@bit8 


do next bit 


ori .w 


#$f fOO.&RGB 


overflow sets G to 255 


btst 


#8 . d4 


B overflow? 


beq.s 


@end , 


if not then continue 


btst 


#7 , &RGB 


test sign 


seq 


&RGB ; 


under /over flow • 


andi. I 


#$0O£e£e£e,&RGB ; 


mask RGB ok 



endm 



macro 
HASHOOT32 



&D0. &D1. &D2. 5cD3 



move. 1 &D0. d4 
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ouu. 1 


&Dl,d4 


aoci. X 


&D2 , d4 


daa. 1 


&D3,d4 


dnai . 1 


#$03e3e3e0,d4 


move . 1 


d4 , &AH 


endm 




macro 




HASHCMP32 


&D0, &D1, &D2, &D3 


move , 1 


&D0,d4 


add. 1 


&Dl,d4 


add.l 


&D2,d4 


add.l 


&D3 , d4 


andi . 1 


#$03e3e3e0,d4 


CTBp. 1 


&AH,d4 



endm 
Oirr32X2 FUNC 



EXPORT 



PS 


RECORD 


8 


cable 


DS.L 


1 


pixmap 


DS.L 


1 


V 


DS.L 


1 


U 


DS.L 


1 


V 


DS.L 


1 


width 


DS.L 


1 


height 


DS.L 


1 


rowByte 


DS.L 


1 


pixmap 2 


DS.L 


1 




ENDR 





LS 
Yl 

u_ex 
U_ey 
U,ix 
Y-y 

LSize 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EQU 

ENDR 



DECR 



sizeof ( short ) •Yrow 
X end address 
y end address 
sizeof ( short ) ♦UVrow 
sizeof ( short ) •Yrow 
4*rowBytes-sizeof ( long) *Prow 



2*width 
U+D_ix 

U+widt h* he ighc » 

width 

2*width 

4 *rowByces-width 



2n " ^'-oi - V, a3 - pixmap, a4 - tahle, aS - pixmap2 

do . rgoOO, dl - rgbOl, d2 - rgblO, d3 - rgbll. d4 - spare, d 



link a6,#LS. LSize 

movem.l d4-d7/a3-a5, - (a7 ) 

move SR,dO 



spare, d6 - oldO, d7 

inc» width, fend and rowend are loca 
store registers 



move 
move 
move 
move 
move 



move. 1 

move. 1 
move . 1 
move . 1 
mulu . w 



PS.Y(a6> ,aO 

PS.U(a6) ,al 

PS.V(a6),a2 

PS. pixmap (a6) .a3 

PS. Cable(a6) ,a4 

PS. pixmap2 (a6) ,a5 

PS. width (a6) ,dO 
dO,LS.U_ix(a6) 
PS. height (a5) .dl 
dO.dl 



Y=YC 
D=UC 
V=Vc 

pm=pixmap 
tab=table 
pm2=pixmap2 

LOAD width 
SAVE D_ix 
LOAD height 
width'height 
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Isr.l 
add.l 
move. 1 
add.l 
move . 1 
move. 1 
Isl.i 
move . 1 
Isl.l 
sub. 1 
move.l 

move . 1 

clr.l 

clr.l 

move . 1 
add.l 
move. 1 



#l,dl 
al,dl 

dl,LS.U_ey(a6) 
dO,dO 

dO.LS.Yl(a6) 
dO,LS.y_y(a6) 
#2, do 

PS.rowByte(a6) ,dl 

#2.dl 

dO,dl 

dl,LS.P_y(a61 

PS.rowByte(a6) ,d5 

dS 

d7 

LS.U_ix(a6) ,dO 
al,dO 

dO,LS.O_ex{a6) 



@do_x CJV2RGB32 (al)*, (a2)*,a4 

move.l LS.Yl(a6),d4 

GETy32 (a0,d4.1),a4.d2,d3 

GETY32 (a0)^,a4,d0,dl 

move .1 do , d4 

or.l dl.d4 

or.l d2,d4 

or.l d3,d4 

andi.l #$01010100, d4 

bne , s ©over 



HASHOOT32 (a5) +,d0.dl,d2 .d3 



DPY32X2 
DPY32x2 

move, 1 
move . 1 

cmpa . 1 
blt.w 

add.l 
add.l 

cmpa. 1 
blt.w 

movem. 1 

unlk 

rts 

@over OVER32 
OVER32 
OVER32 
OVER32 
bra 



a3,d5,d6,d7,dO,d2 
a3,d5,d0,d2,dl,d3 

dl,d6 
d3,d7 

LS.U_ex(a6) ,al 
edo_x 

LS.Y^(a6),aO 
LS.P^{a6) .a3 

LS.U_ey(a6) , al 
@do_y 

(a7)+,d4-d7/a3-a5 
a6 

do 
dl 
d2 
d3 
@ok 



; widch*height/2 
U+ width * he i gh t / 2 

; SAVE U_ey 

; widch*2 

; SAVE Yl 

; SAVE Y_y 
width* 8 

; LOAD rowByces 

r rowBytes*4 

r rowByces * 4 -width* 8 

; SAVE P_^ 

load rowBytes 
clear old2 
clear oldl 

LOAD CJ_ixB 

P+U_ixB 
SAVE U_exB 

uv2rgb(*0++, *V++) 

load Yrow 

add Yb to RGB values 
add Ya to RGB values 



; if overflow 



cop:,' olds 



r restore registers 
; remove locals 
; return 



ENDFUNC 



OOT32X2D FUMC EXPORT 
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PS 


RECORD 


8 


cable 


DS.L 




pixmap 


DS.L 


1 


Y 


DS.L 


1 


U 


DS.L 


1 


V 


DS.L 


2 


width 


DS.L 


1 


height 


DS.L 


1 


rowByce 


DS.L 


1 


pixmap 2 


DS.L 


1 




ENDR 
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LS 
Yl 

U_ex 
U_ey 
U_ix 
Y-y 

P_y 
LSize 



0do_y 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EQU 

ENDR 



0,DECR 

1 

1 

1 

1 

1 

1 



sizeof ( short ) *Yrow 

X end address 

y end address 

sizeof ( short ) •UVrow 

sizeof (short) *Yrow 

4 * rowBy t es - s i zeo f { 1 ong ) * Prow 



2 ♦width 
U+U_ix 

U+width*height» 

width 

2 •width 

4*rowBytes -width 



do I ^Ahon 'h?' ZnY' 5^ ** Pi^ap, a4 - table, aS - pixinao2 

do rgbOO, dl - rgbOl. d2 - rgblO, d3 - rgbll, d4 - spare/ d6 - oldO, d7 



link 
movem . 1 

move . 1 
move . 1 
move . 1 
move . 1 
move . 1 
move . 1 

move . 1 
move . 1 
move . 1 
mulu.w 
Isr.l 
add.l 
move . 1 
add. 1 
move . 1 
move - 1 
Isl.l 
move . 1 
isl.l 
sub. 1 
move . 1 

move . 1 

clr.l 

clr.l 

move . 1 
add.l 
move . 1 



Odo^ UV2RGE32 

move . 1 
GETY32 



a6,#LS. LSize 

d4 -d7/?.3-a5,-ta7) 

PS. y(a6) , aO 
PS. a{a6) ,aa 
PS.V(a5) ,a2 
PS.pixmap(a6) , a3 
PS. table {a6) ,a4 
PS.pixmap2 (a6) ,a5 

PS. width (a6) ,dO 

dO,LS.U_ix(a6) 

PS. height (a6) ,dl 

dCdl 

#l,dl 

al,dl 

dl,LS.U.ey (a6) 
dO,dO 

dO,LS.Yl(a6) 

dO.LS.Y_y(a6) 

«2,dO 

PS.rowByce (a6) ,dl 

#2,dl 

dCdl 

dl,LS.P_y(a6) 

PS.rowByteta6) ,<35 

d$ 

d7 

LS.U_ix{a6) ,dO 
al.dO 

dO,LS.D_ex{a6) 

{al)+, (a2)+,a4 

LS.YKaS) ,d4 
(a0.d4.1),a4,d2,d3 



; inc, width, fend and rowend are loca 
; store registers 

; Y=Yc 

; U=Uc 

; V=Vc 

; pmrpixmap 

; tab=tabie 

; pm2i:pixmap2 

; LOAD width 
r SAVE U_ix 
r LOAD height 

width* height 

v*idth*hcight/2- 

U+v/idth*height/2 
SAVE U_ey 

width*2 
SAVE Yl 
SAVE Y_y 

width* 8 
LOAD row bytes 

rowBytes*4 

rowSyces»4-width*8 
SAVE P_y 

load rowB>''tes 
clear old2 
clear oldl 

LOAD U_ixB 

P+U_ixB 
SAVE U_exB 

uv2rgb(*U++, •V++) 

load Yrow 

add Yb to RGB values 
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Qok 



@cont 



ediff 



3 over 



GETY32 

move . 1 
or.l 
or. I 
or.l 
andi- . 1 
bne. w 

HASHCMP32 
bne. s 

add.l 

move . 1 
move . 1 

cmpa. 1 
bit ,w 

add.l 
add.l 

cmpa. 1 
blew 

movent, 1 

unlk 

res 

move . 1 

DPY32x2 

DPY32x2 

bra. s 

0VER32 

OVER32 

OVER32 

OVER32 

bra 

ENDFUNC 



(a0)+,a4,d0,dl 

d0,d4 
dl,d4 
d2,d4 
d3,d4 

#301010100, d4 
(iover 

(a5) + ,d0,dl,d2,d3 
Odiff 

#16, a3 

dl,d6 
d3,d7 

LS.u_ex(a6) ,ai 
@do_x 

LS.Y_y(a6),aO 
LS.P_/(a6) ,a3 

LS.U_ey(a6) ,al 
@do_y 

(a7)+,d4-d7/a3-a5 
a6 

d4, -4U5) 

a3,d5,d6,d7,d0.d2 

a3,d5,d0,d2,dl,d3 

Qcont 

do 

dl 

d2 

d3 

@ok 



add Ya zo RGB values 



if overflow 

add four pixels 
copy olds 



restore registers 
remove locals 
return 



OUT32 
PS 

table 
pixmap 

V 

u 

V 

width 
height 
rowByte 
pixTTiap2 



LS 
Yl 

U.ex 
U^ix 

?-y 
LSxze 



FUNC 

RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 

RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EQU 



EXPORT 

8 
1 
1 
1 
1 
1 
1 
1 

■ 1 
1 



0,DECR 

1 

1 

1 

1 

1 

1 



; sxzeof ( short ) *Yrow 

; X end address 

; y end address 

; sizeof (short ) *L"/row 

; sizeof (short) *Yrow 

; 2*rowBytes-si2eof (long) *Prow 



2 •width 
D+a_ix 

U+width*height» 

width 

2 *width 

2 * r owBy t e s -width 
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ENDR 



' ^'wni 'J^' ~ ■ Pi^P' a4 - cable, a5 - pixmap2 

ao - rgbOO. dl - rgbOl, 62 - rgblO, d3 - rgbli, d4 - spare, d6 - oldO, d7 



@do^ 
@do_x 



link 
movem. 1 

move . 1 
move . 1 
move , 1 
move . 1 
move . 1 
move. 1 

move . 1 
move . 1 
move . 1 
m:ulu .w 
Isr.l 
add.l 
move . I 
add.l 
move . 1 
move. 1 
add.l 
move . 1 
add.l 
sxib. 1 
move . 1 

move . 1 
move . 1 

move . 1 
add.l 

UV2RGB32 

GETY32 
GETY32 

move , 1 
or.l 
or.l 
or.l 
andi. 1 
bne. s 

HASHOUT32 

DPY32 

cmpa. 1 
blew 

add.l 
add.l 

cmpa . 1 
blc .w 

movem. 1 



a6,#LS.LSi2e 
d4-d7/a3-a5,-(a7) 

PS. Y(a6) ,aO 
PS.D(a6) ,al 
PS.V(a6) ,a2 
PS.pixmap(a6) , a3 
PS.table(a6) ,a4 
PS.pixmap2(a6) , a5 

PS. width (a6) .dO 

dO,LS.U_ix(a6) 

PS. height (a6) ,dl 

dO,dl 

#l,dl 

al,dl 

dl,LS.U_ey(a6) 
dO.dO 

dO,LS.yi(a6) 

dO,LS.Y_y(a6) 

dO,dO 

PS.rowByte(a6) ,dl 

dl,dl 

dO,dl 

dl,LS.P_yta6) 

PS,rowByte(a6) ,d5 
LS.YKaS) ,d6 

LS.U_ix(a6) ,d7 
al,d7 

(al)+, (a2)+,a4 

(a0,d6.1} ,a4,d2,d3 
{aO)i.,a4,dO,dl 

d0,d4 
dl,d4 
d2,d4 
d3,d4 

^$01010100, d4 
Gover 

{a5) + ,d0,dl,d2,d3 
a3,d5,d0,d2,dl,d3 

d7,al 
6do_x 

LS.Y_/{a6),aO 
LS.P_y(a6),a3 

LS.y_ey<a6),al 
@do_y 

(a7)+,d4-d7/a3-a5 



inc. width, fend and rowend are loca 
score registers 

Y=Yc 
U=CJc 
V=Vc 

pm=pixmap 
cab=cable 
pm2=pixiTiap2 

LOAD width 
SAVE U_ix 
LOAD height 

widt:h*height 

width*heighc/2 

U+width*height/2 
SAVE U_ey 

width*2 
SAVE Yl 
SAVE Y_y 

width*4 
LOAD rowBytes 

rowByces*2 

rowByc es * 2 -width* 4 
SAVE P_y 

load rowBytes 
load Yrow 

LOAD U_ix3 
P+U_.ixB 

uv2rgb(*u++, *V++) 

add Yb to RGB* values 
add Ya to RGB values 



if overflow 



; restore registers 
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0over 



unlk 
rts 

OVER32 
OVER32 
OVER32 
OVER32 
bra 



a6 

do 
dl 
d2 
d3 



ENDFUNC 
* 

OUT 3 2 D PUNC EXPORT 



PS 

table 

pixmap 

Y 

U 

V 

width 
height 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 



rowByte DS.L 
pixiiiap2 DS.L 
ENDR 



LS 
Yl 

U^ex 
U-ey 
U_ix 

LSize 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EQU 

ENDR 



a 
1 
1 
1 
1 
1 
1 
1 
1 
1 



O.DECR 
1 

1 
1 
1 
1 
1 



remove locals 
return 



sizeof ( short ) *Yrow 
X end address 
y end address 
sizeof ( short ) *UVrow 
sizeof (short) *Yrow 
2*rowByces-si2eof ( long) *Prow 



2*width 
U+D_ix 

U+width*height» 

width 

2*width 

2*rowBytes-width 



aO - Y, al 
do - rgbOO, 

linJc 
movem. 1 

move . 1 
move . 1 
move . 1 
move . 1 
move . 1 
move . 1 

move . 1 
move . 1 
move . 1 
malu.w 
Isr.l 
add.l 
move . 1 
add.l 
move . 1 
move . 1 
add.l 
move . 1 
add.l 
sub. 1 
move. 1 



'J^' ZnY' ?5 " P^-^P' a4 - table, a5 - pixmap2 
dl - rgbOl, d2 - rgblO, d3 - rgbll, d4 - sp^ d6 - Yrow, d7 



a6,#LS.LSize ' 
d4-d7/a3-a5,-(a7) 

PS.Y{a6) ,aO 
PS.U(a6) ,a: 
PS.V(a6) ,a2 
PS. pixmap (a6) ,a3 
PS. table (a6) ,a4 
PS.pixmap2(a6) ,a5 

PS.width(a6) ,dO 

dO,LS.U_ix(a6) 

PS.height(a6) ,dl 

dO,dl 

#l,dl 

al.dl 

dl,LS.U_ey(a6) 
dO,dO 

dO,LS.Yl(a6) 

dO,LS.Y_y(a6) 

dO.dO 

PS.rowByC6(a6) , dl 

dl.dl 

dO,dl 

dl»LS.P_y(a6) 



inc, width, fend and rowend are loca 
store registers 

Y-Yc 
a=Uc 
V=Vc 

pmspixinap 
cab=table 
pm2=pixmap2 

LOAD width 
SAVE U_ix 
LOAD height 

width»height 

width*height/2 

0^-width*height/2 
SAVE U_ey 

width* 2 
SAVE Yl 
SAVE Y_y 

width* 4 
LOAD rowBytes 

rowBytes*2 

rowBy t es • 2 -width* 4 
SAVE P_y 
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move . 1 
move . 1 

Qdo_y move . 1 
add. I 

@do_x UV2RGB32 

move . 1 
GETy32 
GETY32 

move . 1 

or.l 

or.l 

or.l 

andi, 1 

bne.s 

<?ok HASHCMP32 
bne . s 

addq 

Qcont: cnpa . 1 
blt.w 

add.l 
add.l 

cnpa. 1 
blew 

* 

movem . 1 

unlk 

rts 

@diff move.l 
DPY32 
bra.s 

©over OVER32 
OVER32 
OVER32 
OVER32 
bra 



PS.rowByt:e(a6) ,d5 
LS.YKaS) .d6 

LS.a_ixCa6) ,d7 
al,d7 

Cal)+, {a2)+,a4 

LS.YKaS) ,d4 
(aO,d6.1) .a4,d2,d3 
(a0)+»a4,d0,dl 

d0,d4 
dl,d4 
d2,d4 
d3,d4 

#$01010100, d4 
@over 

(a5)+-,d0,dl,d2,d3 
ediff 

#8,a3 

d7,al 
edo.x 

LS.y^(a6),aO 
LS.P_y (a6) ,a3 

LS.0„ey(a6) . al 
@do_y 

{a7)+,d4-d7/a3-a5 
a6 

d4,-4(a5) 

a3,d5.d0,d2,dl,d3 

@conn 

do 

dl 

d2 

d3 

Qok 



load rowBytes 
load Yrow 

LOAD U_ixB 
P+U,ixB 

uv2rgb(•U+-^, *V^^) 

load Yrow 

add Yb CO RGB values 
add Ya co RGB values 



if overflow 



add four pixels 



; restore registers 
; remove locals 
; retiim 



E2^DFUNC 



macro 



@pos 
0ok 



uvov 


&VAL, &0V 


move . w 


&VAL,&OV 


add. w 


#$0200, &OV 


and.w 


#$FC00.&OV 


beg. s 


0ok 


tsc.w 


&0V 


bge.s 


@pos 


move . w 


#$01FF,&VAL 


bra.s 


0ok 


move . w 


#$FE00,&VAL 



endm 
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UVLIMIT FUNC 




* fix do, d4, spare 


da d2 


UVOV 


dO,dl 


swap 


do 


UVOV 


dO,dl 


swap 


do 


UVOV 


d4,dl 


swap 


d4 


UVOV 


d4,da 


swap 


d4 


res 

♦ 




ENDFUNC 





macro 
UVOVER 

move . 1 
move , 1 
add.l 
add.l 
or.l 
andi . 1 
beq. s 
bsr 

euvok 

endm 



&v 

#$02000200, dl 

di,d2 

&U,dl 

&V,d2 

d2,dl 

#SFCOOFCOO,dl 

@UVok 

UVLIMIT 



macro 

GETW &AU, &AV, &UV 

move.l (&AU)+,&SP 

move.l {6AV)+,&UV 

UVOVER &SP,&UV 

Isr.l #5.&UV 

andi .1 #$03e003e0 , &SP 

andi.l #S001F001F,&UV 

or.l &SP,&UV 

swap tuv 



; DV==:$00UVO0UV 



endm 



macro 
GETY 

move , 1 
Isl.l 
andi . 1 
or.w 
move . 1 
swap 
or.w 
move . 1 

endm 



&Ay , &IND, &UV, &R0 , ficRl 

&AY.&R1 
#5,&R1 

#$FC00FC00, &R1 
&UV,&R1 

(&IND, &R1 ,w*4),&R0 
&R1 

&UV, &R1 

(tIND,&Rl .W*4),&R1 



(2+) Y=y0Yl 
(4) Y=Y0XXY1XX 



12) Y=Y1UV 
(2+) R0=0123 
(4) Y=YOXX 
(2) Y=YOUV 
(2+) Rl=0123 



(YD 



(YO) 



macro 

&AU, &AV, &SP, iUV 

move.l 1&AU)+,&SP 
move.l (&.V/) + ,&DV 

UVOVER &SP,&UV 
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Isr . I 


#2, &S? 






Isr . i 


#6, &UV 






anci . 1 


#SO0F000FO,&SP 






andi. 1 


#SO00FO0OF,&UV 






or, 1 


&SP,&UV 


; uv==soouvootr\/ 




swap 


&UV 






endm 








macro 






• 




£IND, &UV, &D0 , &D1 






move . 1 




; dO=YOYl 




Isl.l 


#3, &D0 


• HO— YHYVYlYV 




move . b 


&uv,&uo 


• riO-Yn)fXVl nv 

t Uw • i U/WV ^ V 




andi.w 


#S3FFr . &D0 


• dO-DYTTV ( 1 ) 




move. 1 


(&XNDr£cDO -W*4),&D1 






swap 


&D0 






move . b 


&UV, &D0 


au=Yuuv 




andi . w 


TT ^ J c r r t o-UyJ , 


ao=OYUV f 0 ) 




move . 1 


(&XKD,&DO w*4) &D0 


txna ciuc entries 




encm 






OUTS 


FUNC 


EXPORT 




PS 


RECORD 


8 




cable 


DS.L 






pixmap 


DS.L 






Y 


DS.L 






U 


DS.L 






V 


DS.L 






width 


DS.L 






height 


DS.L 






rowByte 


DS.L 






pixmap2 


DS.L 








ENDR 







LS 
Yl 

U_ex 
U_ey 
V_ix 

P_y 
LSire 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EOU 

ENDR 



DECR 



sizeof i short ) *Yrow 

X end address 

y end address 

sizeof ( short ) *UVrow 

sizeof { short ) *Yrow 

2'- rowBytes -sizeof (long) 



= 2*width 
= U+U_ix 

= U+width*height» 
= width 
= 2*width 
Prow = 2*rowByces-widch 



aO - Y, al - a2 - v, a3 - pixmap, a4 - table, a5 - pixmap2 

dO - rgbOO, dl - rgbOl, d2 - rgblO, d3 - rgbll, d4 - spare, d6 - oldO, d7 

inc, width, fend and rowend are loca 
store registers 

Y=Yc 
U=Uc 
V=Vc 

pra=pixmap 
tab=table 
tab+=32768 (longs) 
pm2sipixinap2 

LOAD width 



link 




a6, #LS. LSize 




movem. 1 


d4-d7/a3"a5, -(a7) 




move. 


1 


PS.Y(a6) ,aO 




move. 


1 


PS.U(a6) ,al 




move . 


1 


PS.V(a6) ,a2 




move. 


1 


PS.pixmap(a6) , a3 




move . 


1 


PS.table(a6) ,a4 




adda. 


1 


#500020000, a4 




move. 


1 


PS.pixniap2 (a6) ,a5 




move. 


1 


PS.widthra6) .dO 
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move . 1 
move . 1 
mulu. w 
Isr.i 
add.l 
move. 1 
move . 1 
add.l 
sub.l 
move . 1 
add.l 
move . 1 
move . 1 

move . 1 
move. 1 

move . 1 
add.l 

GETUV 

GETY 
GETY 

move . w 
Isl.l 
move . w 
swap 
Isl.l 

swap 

GETY 
move . w 
Isr.l 
move.w 
GETY 
move . w 
swap 
Isr.l 
move . w 

move . 1 
move . 1 

cirpa , 1 
blt.w 

add.l 
add.l 

cmpa. I 
blt.w 

movem, 1 

unlk 

res 



do, LS. D_ix(a6) 

PS. height (a6) ,dl 

dO,dl 

#l,dl 

al,dl 

dl,LS.tJ_ey(a6) 
PS.rowByne(a6) ,dl 
dl,dl 
dO,dl 

dl,LS.P_y(a6) 
do, do 

dO,LS.Yl(a6) 
dO,LS.Y_y(a6J 

PS. rowBy te ( a6 ) ,d5 
LS.Yl(a6).d6 

LS.a_ix(a6) ,d7 
al,d7 

al,a2,d0,d4 

(aO^dS.w) ,a4,d4,d2,d3 
(a0)+,a4,d4,d0,dl 

d3,d2 
#8,d2 
dO , dl 
dl 

#8,dl 
d4 

(a0,d6.1) ,a4,d4,d0.d3 

d3,d0 

#B.dO 

dO,d2 

(aO)+,a4,d4,dO,d3 

d0,d3 

d3 

#8,d3 
d3,dl 

d2, (a3,d5) 
dl, (a3)+ 

d7,al 
@do_x 

LS.Y^(a6),aO 
LS.P_y{ae) ,a3 

LS.u_ey(a6) ,al 
Qdo^ 

(a7)+,d4-d7/a3-a5 
a6 

; return 



SAVE U_ix 

LOAD height 
width*height 
width*height/2 
U+width*height/2 

SAVE U_ey 

LOAD rowBytes 
rowBytes*2 
rowBytes*2 -width 

SAVE P_y 
width* 2 

SAVE Yl 

SAVE Y_y 

load rowBytes 
load Yrow 

LOAD U_ixB 
PfU.ixB 



d2=X0XX.. d3=XXlX 
dO=XXXO, dl=lXXX 

d2=X01X 
d2=01XX 
dl=lXXO 
dl=XOlX 
dl=01XX 

next UV 

dO=X2XX, d3=XX3X 
dO=X23x 
dO=XX23 
d2=0123.- 

dO=XXX2, d3=3XXX 

d3=3XX2 

d3=X23X 

d3=XX23 

dl=C123 



restore registers 
remove locals 



ENDFUNC 



macro 
Y8x2 



&AY, &IND, &UV, 4iold 
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move.l &AY,dO 

isl.l #3, do 

swap dO 

add.w dO,&old 

Isr.w tl.&old 

move.b &UV.&old 

andi.w #S3FFF, &old 

inove.l {&IND,&old .w*4),dl 

move.w dO,&oid 

move.b &UV,dO 

andi.w #$3FFF,dO 

move. 1 (&IND,d0.w*4) ,d2 

move . w dl , d3 

move . w d2 , dl 

move . w d3 , d2 

swap d2 

Isl.l #8,dl 

Isl.l #8,d2 

swap dO 

add.w dO.&old 

Isr.w #l,&old 

move.b &UV, &old 

andi.w #S3FFF,&old 

move.l (&IMD»&old .W4),d3 

move.w dO,&old 



move . b 


&UV,dO 


andi . w 


#$3FFF,dO 


move . 1 


(&IMD,d0.w*4) ,dO 


move . w 


dO,dl 


move . w 


d3,d0 


move.w 


dl,d3 


swap 


do 


Isr.l 


#8, do 


Isr.l 


#8.d3 


move . w 


dD,d2 


move . w 


d3,dl 


endm 




macro 




Y8x2a 


&AY,&IND,&UV 


GETY 


tAY,&IND,&UV,dl,d2 


move . 1 


&AY,d2 


Isl.l 


#3,d2 


move . b 


&UV.d2 


andi , w 


«S3FFF,d2 


move . 1 


(&IND,d2.w*4) ,dl 


swap 


d2 


move . b 


&UV.d2 


andi.w 


#$3FFF,d2 


move. 1 


(&IND,d2.w*4) ,d2 


move . w 


dl,dO 


move.w 


d2,dl 


move , w 


d0.d2 


swap 


dl 


endm 




macro 




y8x2b 


&AY,&IND.&UV 


GETY 


&AY, &rND,&UV,dl,d2 



(2+) Y=Y0Y1 

(4) Y=YOXXyiXX 

(4) Y=Y1XXY0XX 

(2) Old=old+Y0 

(4) old=(old+Y0)/2 

(2) old=YlOUV 

(4) old=OYUV(IO) 

(2+) dl=XlX3 

(2) old=YO 

(2) Y=YOUV 

(4) Y=OYir.''(0) 

(2+) d2=0X2X 

(2) exg.w dl,d2 

(2) dl=X12X 

(2) d2=0XX3 

(4) d2=X30X 

(4) dl=12XX 

(4) d2=30XX 

(4) Y=Y1XX 

(2) old=old+Yl 

(4) old=(old-t-yi) /2 

(2) old=YIlU\' 

f4) old=0YUV(Il) 

(2+1 d3-XlX3 

(2) old=Vl 

(2) Y=YOUV 

U) Y=OYUV(0) 

(2+ J dO=OX2X 

l2) exg.w dO,d3 

(2) viO=OXX3 

(2) d3=X12X 

(4) dO=X30X 

(4) dO=XX30 

(4)' d3=X12X 

(2) d2=3030 (YiYOYiYl) (1) 
(2) dl^312l (YiYOYiYl) (2) 



(2+) Y=YOyi 
(4) Y=Y0XXY1XX 
(2) Y=Y1UV 
(4) Y=0YUV(Y1) 
(2 + ) cll = ai23 (YD 
(4) Y=irOXX 
(2) Y=YOUV 
(4) Y=OYUV(YO) 
(2+) d2=0123 (YD) 
(2) exg.w d2,dl 
(2) dl=0123 (YIYO) 
(2; d2=0123 (YOYl) 
(4) dl=2301 (YOYl) 
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move . 1 
isl.l 
move.b 
andi . w 
move . 1 
swap 
move.b 
andi . w 
move . 1 
ror . 1 
ror.l 
move . w 
move . w 
move . w 
swap 
ror.w 

endm 



&Ay,d2 
#3,d2 
&UV, d2 
#$3FFf ,d2 

(&IND,d2,w*4) ,dl 
d2 

&UV,d2 

#$3FFF,d2 

{&IND,d2.w*4) ,d2 

#8,d2 

#8,dl 

dl.dO 

d2.dl 

d0,d2 

dl 

#8,dl 



(2+) Y=Y0Y1 
(4) Y=Y0XXY1XX 
(2) Y=Y1UV 
(4) r=OYUVlYl) 
(2+) dl=:0123 (YD 
(4) Y=YOXX 
(2) y=YOtJV 
(4) Y=OYUV(YO) 
(2+) d2=0123 (YO) 
(6) d2=3012 (YO) 
(6) dl=3012 (Yl) 
t2) exg.w d2,dl 
(2) di=3012 (YIYO) 
(2) d2=:3ni2 (YOYl) 
(4) dl=1230 (YOYl) 
(6) dl=1203 (YOYl) 



ODT8x2 FDNC EXPORT 



PS 

table 
pixraao 
Y 
0 
V 

width 
height 
rowByce 



RECORD 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 

pixmap2 DS.L 
ENDR 



LS 
Yl 

U_ex 
U_ey 
U_ix 

P-y 

LSize 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EOU 

ENDR 



8 
1 
1 
1 
1 
1 
1 
1 
1 
1 



0,DECR 

1 

1 

1 

1 

1 

1 



sizeof (short) *Yrow 
X end address 
y end address 
sizeof ( short ) *UVrow 
sizeof ( shore ) ♦ Yrow 
4*rowByces-sizeof (long) *Frow 



2* width 

U+width*height» 

width 

2* width 

4*rowBytes-width 



aO - Y, al 
dO - rgbOO, 

lin)c 
movem. 1 

move. 1 
move , 1 
move . 1 
move . 1 
move . 1 
adda.l 
move . 1 

move , 1 ' 
move . 1 
move . 1 
mulu.w 
Isr.l 



CnY' ' Pi^ap, a4 - cable, a5 - pixmaD2 
dl - rgbOl, d2 - rgblO, d3 - rgbU, d4 - r.pare/ d6 - oldO, d7 



a6, #LS. LSize 
d4-d7/a3-a5, -(a7) 

PS.Y(a6) ,aO 
PS.U(a6) ,al 
PS. V(a6) ,a2 
PS.pixinap{a6) ,d3 
PS.table(a6) ,a4 
#$00020000, a4 
PS.pixmap2 (aS) ,a5 

PS, width (a6) , do 

dO,LS.U_ix(a6) 

PS. height (a6) ,dl 

dO,dl 

#l,dl 



; inc, width, fend and rowend are loca 
; score registers 

; Y=Yc 

; U=ac 

; V=Vc 

; pm=pixmap 

; tab=table 

; cab+=32768 (longs) 

; pm2=pixmap2 

; LOAD width 

; SAVE U_ix 

; LOAD height 

; width*height 

; width-height /2 
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add.l 
move . 1 
add.l 
move . 1 
move . 1 
move . 1 
add.l 
add.l 
sub. 1 
move . 1 

move . 1 

clr.l 

clr.l 

@do_y move . 1 
add.l 
• move . 1 

@do_x GETUV 

Y8x2a 
move . 1 
add.l 
move . 1 
add.l 

move . 1 
Y8x2b 
move . 1 
add.l 
move . 1 

swap 
addq. 1 

move . 1 
y8x2b 
move , 1 
sub.l 
move . 1 
sub. 1 

Y8x2a 
move . 1 
sub. 1 
move . 1 

cmpa. 1 
blew 

add.l 
add.l 

cmpa . 1 
blew 

movem. 1 

unlk 

rts 



al,dl 

dl.LS.U_ey{a6) 
do. do 

dO,LS.yi{a5) 

do, LS.Y_y(a6) 

PS.rowByce(a6) ,dl 

dl,dl 

dl,dl 

dO,dl 

dl,LS.P^(a6) 

PS.rowByte(a5) ,d5 

d6 

d7 

LS.U_ix(a6) ,dO 
al.dO 

dO,LS.U_ex(a6) 

al,a2,d0.d4 

(aO) ,a4.d4; ,d6 
d2, (a3) 
d5,a3 
dl, (a3) 
d5,a3 

LS.YKaS) ,dO 
(aO,d0.w) ,a4,d4; ,d7 
d2, (a3) 
d5,a3 
dl, {a3)+ 

d4 

#4,a0 

LS.Yl(a€) ,dO 
(aCdO.w) .a4,d4;,d7 
dl, (a3) 
d5,a3 
d2. (a3) 
d5,a3 

(a0)+,a4.d4; ,d6 
dl, (a3) 
d5,a3 
d2, (a3)+ 

LS.U_ex(a6) ,al 
@do_x 

LS.Y_y(a5),aO 
LS.P_y(a6) ,a3 

LS.D_ey(a6) ,al 
@do_y 

(a7)+,d4-d7/a3-a5 
a6 

; re cum 



U+ width * he ighc / 2 
SAVE U,ey 

width*2 
SAVE Yl 
SAVE Y_y 
LOAD rowByces 

rowByces "2 

rowByces* 4 

rowByces* 4 -widch* 2 
SAVE P_y 

load rowByces 



; LOAD U.ixB 

P+U_ixB 
; SAVE U_exB 

; d4=OOUV00UV (10) 

; calc d2,dl pixels 



load Yrow 

calc d2,dl pixels 



next UV 
next Ys 

load Yrow 

calc d2,dl pixels 



; rescore registers 
; remove locals 



ENDFUNC 
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©end 
IN32 



macro 
RGB2Y 

move . 1 

eori . 1 

clr.w 

move . b 

move. 1 

sub.w 

swap 

move . w 

ext.w 

add.w 

add.w 

Isr.l 

clr.w 

move . b 

move . 1 

sub.w 

swap 

sub.w 

move , 1 

sub.w 

swap 

sub.w 

ext.w 

sub.w 

sub.w 

Isl.w 

add.w 

Isr.l 

move . 1 

sub.w 

swap 

add.w 

ext .w 

add.w 

add.w 

cmpi . w 

bge.s 

move. w 

bra. s 

cmpi . w 

blt.s 

move . w 

move - w 

endm 



FUNC 



PS RECORD 
table DS.L 
pixmap DS . L 

Y DS.L 
U DS.L 

V DS.L 
width DS.L 
height DS.L 
rowByte DS.L 

ENDR 



&KG3, SlY, &U, SlV, fi:AV 

&RGB,d2 
#$808080, d2 
dl 

d2,di 

4 (a4,dl.w*8) ,dO 

dO,&U 

dO 

dO,&Y 
dl 

dl,dl 
dl,&v 
#8,d2 
dl 

d2,dl 

(a4 ,dl.w*8) ,dO 

dO,&U 

do 

dO,&y 

4 (a4,dl.w*8; , dO 

dO,&V 

do 

dO,&Y 
dl 

dl,&u 
dl, &v 
#2,dl 
dl, tY 
#8,d2 

fa4.. d2.w*'8) ,dO 
do, &V 
do 

dO,&Y 
d2 

d2,d2 
62, &U 
#$FE40,&Y 
@0k 

#$FE40,&Y 
@end 

#S01C0,&Y 
Send 

#$oico,&y 

^Y^SlAY 



EXPORT 

8 
1 
1 
1 
1 
1 
1 
1 
1 



pixel = *pixinap 

pixel'^=0x808080 

B=0 

B=pixelC31 
c30=by, bu 
U-=bu 
d0=bu,by 
Y=by 
( short ) B 
B*=2 
V+=B«1 
pixel»=8 
0=0 

G=pixel[3 3 

dO=gry , gv 

U-=gv 

do =gv , gry 

y-=gry 

d0=gby,gu 

V-=gv 

dO=gu, gby 

Y-=gby 

( short )G 

U-=g 

V-=g 

G«=2 

Y+=B«1 

pixel» = 8 

dO=ry, rv 

V-=rv 

dO=rv,ry 

Y+=ry 

( short )R 
R*=2 
U+=R«2 
y>=-448 
if greater 
Y= -448 
save 
Y< 448 
if less 
Y= 443 
Save Y 



LS 



RECORD 



O.DECR 
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U_ex 
U_ey 
U.ix 



9do_y 



@do_x 



DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EQU 

EMDR 



Engineering: KlicsCode:CoinpPicC :Coioi 

; sizeof (shore ) *yrow 

; X end address 

; y end address 

; sizeot { shore ) 'UVrow 

; sizeof (shore ) 'Yrow 

; 2*rowByces-sizeof (long) -Prow 



2* wide h 
U+U_ix 

U'»-width*heighe» 

widch 

2*wideh 

2 * r o wBy e e s - w ide h 



" - U, a2 - V, a3 - pixmap, a4 - table, a5 - pixmap2 

do - rgbOO, dl - rgbOl, d2 - rgblO, d3 - rgbll ^ 



d4 



spare, d6 - oldO. d7 



link 
movem. 1 

move. 1 
move . 1 
move . 1 
move . 1 
move . 1 

move . 1 
move . 1 
move . 1 
mulu , w 
Isr.l 
add.l 
move . 1 
add.l 
move . 1 
move . 1 
add. 1 
move . 1 
add.l 
s\ib. 1 
move . 1 

move . 1 
move . 1 

move . 1 
add.l 
move . 1 

clr.w 
clr.w 

RGB2Y 
RGB2y 
RG32y 
RGB2Y 

asr .w 
asr .w 

cinpi. w 
bge.s 
move . w 
bra. s 
cmpi.w 
blc.s 
move . w 



a6,#LS.LSize 

d4 -d7/a3-a5, -(a7) 

PS.y(a6) ,aO 
PS.U(a6) ,al 
PS.V(a6) .a2 
PS.pixmap(a6) , a3 
PS. cable (aS) ,a4 

PS. width(a6) . dO 

dO, LS.U_ix(a6) 

PS.heighc(a6) ,dl 

dO,dl 

«l.dl 

al,dl 

dl,LS.a_ey{a6) 
dO,dO 

dO.LS.YKaS) 

dO,LS.Y_y{a6) 

dO,dO 

PS.rowByce(a6) ,dl 

dl,dl 

dO.dl 

dl«LS.P_i'(a6) 

PS. rowByce(a6) ,d7 
LS.Yl(a6) ,d6 

LS.U,ix(a6) .do 
al,dO 

do. LS.U_ex(a6) 

d4 

d5 



inc,- width, fend and rowend are Icca 
store registers 

Y=Yc 
U=Uc 
v=Vc 

pm=pixmap 
cab=cable 

LOAD width 
SAVE U_ix 
LOAD height 

width*neight 

width*height/2 

U+width*height/2 
SAVE L'_ey 

wideh*2 
SAVE Yl 
SAVE Y_y 

width* 4 
LOAD rowBytes 

rowBytes*2 

r owBy t e s * 2 - widt h ♦ 4 
SAVE P_y 

load rowBytes 
load Yl 

LOAD U_ixB 

P+U_ixB 
SAVE U_exB 

U=0 
V=0 



(a3,d7.w) ,d3,d4.d5, (a0,d6.wl ; Convert pixel 

(a3)+,d3,d4.d5, (aO)+ ; Convert pixel 

(a3.d7.w) »d3.d4.d5, (aO,d6.w) ; Convert pixel 

{a3)-i-,d3.d4,d5, (aO)+ ; Convert pixel 



#2.d4 
#2.d5 

#SFE40,d4 
@okU 

#SFE4 0,d^ 
Qdov 

#S0lC0,d4 
QdoV 

#$01C0,d4 



U»=:2 

V»=2 

U>=-448 
if greater 
U= -44S 
save 
U< 44 8 
if less 
U= 448 
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@doV 



@o)cV 



@end 



cmpi . w 


#SFH40,d5 


bge.s 


0okv 


inovs . w 




bra. s 


@end 


CITtpi.W 


#S01C0,d5 


bit . s 


isena 


move . w 


#S01C0,d5 


movs , w 


d4, (al)-t- 


iiiwvc; • w 


d5, {a2 ) + 


cupa. 1 


LS.U_ex(a6),al 


blt.w 


@do_x 


aaa. l 


I*S.Y_y{a6) .aO 


add.l 


LS.P_y(a6) ,a3 


onpE . 1 


LS,U_ey(a6) ,al 


Dlt . W 


@do_y 


mo vem . 1 


(a7)+,d4-d7/a3-« 


unlk 


a6 


res 


; return 


ENDFTTNr 




inacro 




UV16 


&AV, tSP, & 


move. 1 


1 ZAU 1 + £ C p 


move . 1 


(&AV)+.&UV 


UVOVER 


&SP,&UV 


Isr.l 


#5.&UV 


andi.i 


#$03eO03e0,&SP 


andi-1 


#$001F001F,&UV 


or. 1 


&SP,&DV 


swap 


&UV 


endm 




macro 




Y16x2 




move . 1 


&AY,d2 


Isl.l 


#5,d2 


andi.i 


#$FC00FC00,d2 


or .w 


&tJV,d2 


move - 1 


(&IND,d2.w*4) ,dl 


sv7ap 


-d2 


or .w 


&UV,d2 


move . 1 


(&IND,c32.w*4) ,d2 


endm 





; V>=-44S 

; if greater 
; V= -443 
; save 
; V< 448 
; if less 
; V= 448 

; Save U 
; Save V 



restore registers 
remove locals 



; uv==:$ooavoouv 



(2+) Y=:Y0Y1 
(4) Y-^rOXXYlXX 

(2) Y^YIUV 

(2 + ) dl=0123 (YD 

(4) Y=YOXX 

(2) Y=YOUV 

(2+) d2=0123 (YO) 



0UT16x2 FUNC EXPORT 



PS 


RECORD 


8 


cable 


DS.L 


1 


pixmap 


DS.L 


1 


V 


DS.L 


1 


U 


DS.L 


1 


V 


DS.L 


1 
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widrh 


DS.L 


1 


height: 


DS.L 


T 


rowByce 


DS.L 


1 
X 


pixn\ap2 DS.L 


1 


« 


E2^DR 




LS 


RECORD 


0 


VI 


DS.L 


1 


U_ex 


DS.L 


1 


U_ey 


DS.L 


1 


U_ix 


DS.L 


1 




DS.L 


1 


P_y 


DS.L 


1 


LSize 


EOU 


• 









DZCR 



; sizeof ( short ) * Yrow 

; X end address 

; y end address 

; sizeof (shore) *UVrow 

; sizeof (shore) *Yrow 

; 4 »rowByces- sizeof (long) ♦Prow 



2*width 
U+U_ix 

U+wi dt h * he i gh t » 

width 

2*width 

4*rowBytes-width 



@do_y 



@do X 



aO - Y, al 


- U, a2 - V, a3 - 




di - rgbO 1 , d2 - 


link 


a6, #LS. LSize 


movem. 1 


d4-d7/a3-a5, -(a7) 


move . 1 


PS Y(a61 aO 


move . 1 


PS.U(a6) ,al 


move . 1 


PS.V(a6) ,a2 


move . 1 


PS.pixmap(a6) , a3 


move . 1 


PS. table (a6) ,a4 


adda. 1 


#$00020000, a4 


move . 1 


PS .Dijanan2 f a6 ) 


move . 1 


PS width f a n 1 r^n 


move . 1 


dO , LS . U_ijc { a 6 ) 


move . 1 


PS . heicht (a6 1 dl 


mxilu.w 


do, dl 


Isr.l 


#l,dl 


add.l 


al,dl 


move . 1 


dl.LS.0_ey(a6) 


add.l 


dO,dO 


move . 1 


dO,LS.Yl fa6) 


move . 1 


dO,LS.Y^(a6) 


add.l 


do, do 


move . 1 


PS.rowByteiaS) , dl 


add.l 


dl,dl 


add.l 


dl,dl 


sub.l 


dO,dl 


move . 1 


dl,LS.P_y(a6) 


move . 1 


PS.rowByte(a6) . d5 


clr.l 


d6 


clr.l 


dl 


move . 1 


LS . U_ix ( a6 ) , do 


add.l 


al,dO 


move . 1 


dO,LS.U.ex(a6) 


GETUV 


al,a2,d0,d4 


GETY 


(aO) ,a4,d4,dl,d2 


move . 1 


d2, (a3)+ 


move.l 


dl, (a3) 


add.l 


d5,a3 


swap 


dl 


move . 1 


dl. ra3) 



rgblO, d3 - rgbll, d4 - spare, d6 - oldO, d7 



inc, width, fend and rowend are loca 
store registers 

Y=Yc 
U=Uc 
V=Vc 

pm=pixmap 
tab=t:able 
tab+=32768 (longs) 
pm2rpixniap2 

LOAD width 
SAVE U_ix 
LOAD height 

width*height 

width*heighc/2 

Uf width*he ighc / 2 
SAVE 0_ey 

widch*2 
SAVE Yl 
SAVE Y_y 

width* 4 
LOAD rowBytes 

rowByces*2 

rowByT:cs*4 

rowBytes'*4-width*4 
SAVE F V 



load rowBytes 

; LOAD U_ixB 

P+U_ixB 
; SAVE U_exB 

; d4=00UV00av (10) 

; calc d2,dl pixel 
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swap 
move . 1 
add.l 

move. 1 
GETY 
move . 1 
move . 1 
add.l 
swap 
move . 1 
swap 
move . 1 

swap 
addq. I 
add.l 

move . 1 
GETY 
move . 1 
move . 1 
sub.l 
swap 
move. 1 
swap 
move . 1 
sub.l 

GETY 
move . 1 
move . 1 
swap 
sub.l 
move*l 
swap 
move. 1 

cmpa. 1 
blew 

add.l 
add.l 

cmpa. 1 
blew 

raovem. 1 

unlk 

rts 

ENDFUNC 



macro 
Y16 

move . 1 
Isl.l 
andi. 1 
or . w 
move . 1 
swap 



62 

d2,-(a3) 
d5,a3 

L£.Yl(a6),dO 

(aO,d0.w) ,a4,d4,dl,d2 

d2, (a3)+ 

dl, {a3) 

d5,a3 

dl 

dl. (a3) 
62 

d2, -(a3) 
d4 

#4,a0 
#12, a3 

LS.Ylta6KdO 
{aO,d0.w) ,a4,d4.dl,d2 
dl, (a3) 
d2,-(a3) 
d5,a3 
62 

62, {a3)+ 
dl 

dl, (a3) 
d5,a3 

{aO) + ,a4,d4,dl,d2 
dl, (a3) 
d2.-(a3) 
62 

d5,a3 
62, (a3)+ 
dl 

dl, (a3)+ 

LS.TJ_ex(a6) ,al 
Sdo_x 

LS.Y^<a6),aO 
LS.P_/(a6) ,a3 

LS.u_ey(a6) ,al 
0do_y 

(a7)+,d4-d7/a3-a5 
a6 

; return 



load Yrow 

calc d2.dl pixels 



; next uv 
; next Ys 



load Yrow 

calc d2,dl pixels 



&AY,&IND,&uv 

&AY , d2 
#5,d2 

#SFC00FC00,d2 
&UV,d2 

f&IND,d2.w*4) . 
d2 

SUV, d2 



restore registers 
remove locals 



dl 



(2+) Y=Y0Y1 
(4) Y=yOXXYlXX 

(2) Y=Y1UV 
(2-..) dl=Yl 
(4) Y=YOXX 
(2) Y=YOW 



wo 94/23385 



PCT/GB94/00677 



752 



move . i 
move . w 

endm 
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(&IND,d2.w*4) ,d2 
dl,d2 



(2^) d2=r0 
12) d2=yOYl 



OUT 16 FX3NC 



PS 

cable 
pixmap 

y 
u 

V 

width 
height 



r^ZCORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 



rowByce DS.L 
pixmap2 DS.L 
ENDR 



EXPORT 

8 
1 
1 
1 
1 
1 
1 
1 
1 
1 



LS 
Yl 

U.ex 

U_ix 

P-V 
LSize 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EOU 

ENDR 



DECK 



sizeof (short ) *Yrow 
X end address 
y end address 
sizeof ( short ) *UVrow 
sizeof I short ) •Yrow 
2*rowBytes-sizeof (long) 



Trow 



2 -width 
U+U_ix 

U+width*he ight >> 

width 

2»width 

2 * rowBy t es -width 



aO - y, at 
do - rgbOO, 



0do_y 



"^V' - V, a3 - pixmap, a4 - table, a5 - pixmap2 
dl - rgbOl, d2 - rgblO, d3 - rgbll, d4 - spare. d6 - oldO, d7 

inc, width, fend and rowend are loca 
store registers 

y=yc 

U=:UC 
V=VC 

pm=pixmap 
tab=table 
tab+=3276B (longs) 
pm2=pixmap2 

LOAD width 
SAVE U.ix 
LOAD height 
width-height 
width*height/2 
U+width* height / ^ 
SAVE a.ey 

width*2 
SAVE Yl 
SAVE Y_y 
LOAD rowBytes 
rowBytes*2 
rowBytes* 2 -width*2 
SAVE P_y 

load rowBytes 



LOAD U_ixB 



link 


a6, #LS. LSize 


movem. 1 


d4-d7/a3-a5,-(a7) 


move . 1 


PS.y(a6) ,aO 


move . 1 


PS.U(a6),al 


move . 1 


PS.V(a6),a2 


move . 1 


PS.pixmap{a6) , a3 


move . 1 


PS. table fa6) ,a4 


adda. 1 


#300020000, a4 


move . 1 


PS.pixmap2 (a6) ,a5 


move . 1 


PS.width{a6) , dO 


move . 1 


do, LS.U_ix(a6) 


move . 1 


PS. height (a6) ,dl 


mulu . w 


dCdl 


Isr.l 


#l.dl 


add.l 


al,dl 


move . 1 


dl,LS.U_e>-ia6) 


add.l 


dO,dO 


move . 1 


dO,LS.Yl(a5) 


move . 1 


dO,LS.Y_y(a6) 


move . 1 


PS.rowByte(a6) ,dl 


add.l 


dl,dl 


sxib. 1 


dCdl 


move . 1 


dl,LS.?_y (a6) 


move . 1 


PS.rowByte(a6) ,d5 


clr.l 


dS 


clr.l 


d7 


move . 1 


LS.U_ix(a6) ,dO 
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add.l 
move . 1 

edo_x GETUV 

GETY 
move . w 
move . 1 
add.l 

move. i 
GETY 
move . w 
move. 1 

swap 
addq.l 

move . 1 
GETY 
move . w 
move . 1 
sub.l 

GETY 
move . w 
move . 1 

cmpa, 1 
blew 

add.l 
add.l 

cmpa . 1 
blt.w 

mo vera. I 

unlk 

rts 

ENDFUNC 



al.dO 

dO,LS.U„ex(a6) 

al, a2»dO,d4 

{a0),a4,d4,dl,d2 

dl,d2 

d2, (a3) 

d5,a3 

LS.Yl{a6) ,dO 
(aO,d0.w) ,a4,d4,dl,d2 
dl,d2 
d2, (a3)+ 

d4 

#4,a0 

LS.Yl(a6) ,dO 

(aO,d0.w) ,a4,d4,dl,d2 

dl,d2 

d2. (a3) 

d5,a3 

(aO) + ,a4,d4,dl,d2 

dl.d2 

d2, (a3)+ 

LS.U_€x{a6),al 
edo_x 

LS.Y_y(a6) ,aO 
LS.P_y{a6) ,a3 

LS.U_ey(a6),al 
@do_y 

{a7)+,d4-d7/a3-a5 
a6 



P+U_ixB 
SAVE U_ex3 

d4=00UV00UV (10) 

calc d2,dl pixel 



load Yrow 

calc d2.dl pixels 



next UV 
next Ys 

load Yrow 

calc d2,dl pixels 



restore registers 
remove locals 
return 



END 
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• . © Copyright 1993 KLICS Limited 
All rights reserved. 

Written by: Adrian Lewis 



68000 Fast RG3/YUV code 



inc lude • Traps . a ' 
machine mc68030 



macro 

RGB2y &Apixel. SAY 

do - pixel/r, dl - g/2g+r, d2 - b, d3 - Y 



move . 1 


&Apixel, do 


; pixel =*Apixal 


eor. 1 


#300808080, do 


; signed pixels 


move . b 


dO,d2 


; b=pixelf3) 


ext .w 


d2 


; b is 8(16) bit 


move . w 


do , dl 


; g=pixel[2] 


asr .w 


*i7,dl 


? 2g is 9(16) bit 


swap 


do 


; r=pixel[l] 


ext . w 


do 


; r is 8 {16) bit 


move . w 


d2,d3 


; Y=b 


Isl.w 


#3.d3 


; Y«=3 


sub.w 


d2,d3 


; Y-=b 


add.w 


dO,dl 


; 2g+=r 


add.w 


dl,d3 


; Y+=2g+r 


add.w 


dl,d3 


; Y+=2g+r 


add.w 


dl,d3 


; Y+=2g+r 


asr .w 


#4,d3 


; y»=4 


add.w 


dl,d3 


y+=2g+r 


move . w 


d3,&AY 


; AY=Y is .10(16) bit 


endm 






macro 






RGB2UV 






do - r. 


d2 - b, d3 - Y, 


dl - U/V 


add.w 


dO,dO 


; r is 9(16) bit 


add.w 


d2.d2 


; b is 9(16) bit 


asr.w 


#l»d3 


; Y is 9(16) bit 


move.w 


d2,dl 


; U=b 


sub.w 


d3,dl 


; U=b-y 


move.w 


dl , &AU 


; AU=U 


move . w 


dO,dl 


; V=r 


sub.w 


d3,dl 


; V=r-y 


move .w 


dl , &AV 


; AV=v 



endm 
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if &TYPE( 'seg' UNDEFINED* 

seg &seg 

endif 



then 



RG32YUV2 



@dol 
8do2 



0do3 



FUNC 

link 
movem. 1 

move. 1 
move. 1 
move. 1 
move. 1 
move. 1 
asl.l 
add.l 
move . 1 
asl.l 
move . 1 
asl.l 
sub. 1 
move . 1 
add.l 
rgb2y 
rgb2uv 
rgb2y 
cmpa. 1 
blt.s 
adda . 1 
move . 1 
add.l 
rgb2y 
cnpa. 1 
blt.s 
adda. 1 
cmpa. 1 
bit .w 



EXPORT 

a6.#0 
d4-d7/a3,- 



(a7) 



$0008 
$000C 
$0010 
$0014 
$0018 
#2,d7 
a3,d7 
SOOIC 
#2,d4 
$0020 
#2»d5 
d4,d5 
a3,d6 
d4,d6 
(a3) + 
{al) + 
(a3)-K 
d6,a3 
edo2 
d5,a3 
a3,d6 
d4,d6 
(a3) + 
d6,a3 
@do3 
d5.a3 
d7,a3 
@dol 



(aS) ,a3 
(a6) ,aO 
{a6) .al 
(a6),a2 
(a6).d7 



(a6) ,d4 
(a6) ,d5 



, faO)- 
a2)i 
, (aO). 



, (aO)+ 



movem . 1 


(a7)+,d4-d7/a3 


iinlk 


a6 


res 




ENDFUNC 




macro 




FETCHV 


&AY. &Y, tR, &G, kB 


move . 1 




.add.l 


5cY,&R 


add.l 


&Y,&G 


add.l 


&Y,iB 


endm 




macro 




FIXOV 


&V, &SP1, &SP2 


move . w 


&V,&SP1 


clr.b 


&SP1 


andi . w 


#$3FFF,&SP1 


sne 


&SP1 


best 


#13,&SP1 


seg 


&SP2 



no local variables 
store registers 

pm=pixmap 
Y=Yc 
0=ac 
V=Vc 

fendsarea 

fend«=2 

fend+=pm 

width_b=widch 

width_b«=2 

inc_b=cols 

cols«=2 

inc_b-=width_b 

rowend=pm 

r owend+ = w idc hi.b 

rgb2y (pm++ , Y-t-+ ) 

rgb2uv(U++,V++) 

rgb2y(pm++, Y++) 

rowend>pm 

while 

pin+=incjb 

rowend=pm 

rowend+=width_b 

rgb2y {pm-»-+, Y++ ) * 

rowend>pm 

while 

pm+=inc_b 

f end>pm 

while 

restore registers 
remove locals- 
return 



Y=*AY+* 
RR+=:Y12 
GG+=Y12 
BB+=Y12 
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or .b 


&SP1.&V 


and . w 


fitS?2 , &V 


swap 


6V 


move .w 


&V,&S?1 


clr. b 


&SP1 


andi . w 


#$3FFT,&S?1 


sne 


iSPl 


btst 


#13,i3Pi 


seq 


&SP2 


or .b 


&SPl,fiV 


and.w 


&SP2.&V 


swap 


&V 


endm 




macro 




OVERFLOV; 


&A, &B, &SP1 



; spl=mask 

; sp2=ovov (A) 

; sp2=oOoO (A) 

; sp2=0o0o (A) 

; spl=oOoO (B) 

; spl=oooo (BABA) 



if no overflow 
AND=0 

Al overflow 
Bl overflow 



G=GCGO (12) 
G=GBGB (12) 
B=0HOR tl2) 
B=OROR (21) 
B=ORGB (2) 
G=GBGB (21) 
R=ORGB (1) 
•RGB-^-^ = rgb (1) 
»RGB++=rgb (2) 



vl=vO 

dup vO 
dup vl 

endm 



macro 

UV2RGB3 &AU,&AV 



move . 1 


#$FF00FF00,&SP1 


move . 1 


&A,&SP2 


and, 1 


&SP1.&SP2 


Isr.l 


#8,&SP2 


and. 1 


&B,&SP1 


or.l 


&SP2,&SP1 


move . 1 


&A,&SP1 


or.i 


&B,tSPl 


andi. 1 


#SFF0OFrOO,&SPl 


beq.s 


@ok 


clr. w 


&SP2 


FIXOV 


iA,&SPl,itSP2 


FIXOV 


&B,&SP1,&£P2 



endm 


macro 




MKRGB 


&G, &B, &ARGB 


Isl.l 


#8,&G 


or.l 


&B,&G 


move . 1 


&R.&B 


swap 


&B 


move . w 


&G,&3 


swap 


&G 


move . w 


&G,&R 


move . 1 


&R, &ARGB 


move . 1 


&B,&ARGB 


endm 




macro 




DUPVAL 


&V0. &V1 


move.w 


&V0 , &V1 


swap 


&V0 


move . w 


&V1,&V0 


move . 1 


&V0 , iVl 
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dl - ra, d2 - ga. d3 - ba. d4 - rb. d5 - gb/512, d6 - bb 

d5=512 
U=*AU++ 

U is 10(16) bics 
ba=U 
ga=2U 
ga=3U 
ba+=512 
ba=hb=BB 
ga=3U»4 
V=*AV++ 
ga+=3V 
ra*=2 
ra+=512 
ra=rb=RR 
gb=512-ga 
ga=gb=GG 



move . w 






move . w 


&AU,d2 




add. w 


d2,d2 




move . w 


d2,d3 




add, w 


d3,d2 




add.w 


d3,d2 




add. w 


d5,d3 




DUPVAL 






asr . w 


#4,d2 




move.w 


&AV,dl 




add.w 


dl,d2 




add.w 


dl,dl 




add.w 


d5,dl 




DOPVAL 


dl,d4 




sub.w 


d2,d5 




DUPVAL 


d5,d2 




endm 






if fiTYPEI 


seg* UNDEFINED' then 




seg 


&seg 




endif 





YUV2RGB2 



FUNC 



EXPORT 



PS 


RECORD 


8 


pixmap 


DS.L 


1 


y 


DS.L 


1 


U 


DS.L 


1 


V 


DS.L 


1 


area 


DS.L 


1 


width 


DS.L 


1 


cois 


DS.L 


1 


* 


ENDR 




LS 


RECORD 


0, 


inc 


DS.L 


1 


width 


DS.L 


1 


fend 


DS.L 


1 


count 


DS.L 


1 


LSize 


EOU 


* 




ENDR 






aO - YO, 


al - ' 




60. ,6 - 


used, < 



DECK 



Yl, a2 - U, a3 ■ 
d7 - count 

link a6,#LS. LSize 

movem.l d4-d7/a3-a5, - (a7) 

itiove.l PS. pixmap (a6) , a4 

move ,1 a4 , aS 

move.l PS.Y(a6),sO 

move .1 aO , al 

move.l PS.Ufa6),a2 

move.l PS.V(a6) ,a3 

move.l PS.areaiaS) ,d7 

Isl.l #2.d7 

add.l a4,d7 

move .1 d7 , LS , f end (a6 ) 

move .1 PS . width ( a6 ) , d5 

move .1 d5 , d7 



V, a4 - pmO, a5 - pml 

; inc, width, fend and rowend are loca 
; store registers 

; pmO=pixinap 
; pml=pmO 
; YO=Yc 
; Y1=Y0 
; U3Uc 
; V=Vc 
; f end=area 
; fend«=2 
; fend-t-spmO 
; save fend 
; width=width 
; coiint=width 
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cc :CoIor2 .a 



edo 



asr . 1 

subq.i 

move . 1 

add.l 

add.l 

add.l 

move.l 

move. 1 

Isl.l 

add.l 

add.i 

sub.l 

move . 1 

UV2RGB3 

FETCHY 

FETCHY 

move . w 

Isr.l 

and. w 

Isr.l 

and. w 

Isr.l 

and. w 

Isr.l 

and. w 

Isr. 1 

and. w 

Isr. 1 

and. w 

move . 1 

or.l 

or.l 

or.l 

or.l 

or.l 

andi . 1 

bne. s 

MKRGB 

MKRGB 

dbf 

adda. 1 
adda . 1 
adda. 1 
exg.l 
move . 1 
cmpa. 1 
blew 



movem. 1 

unlk 

res 

0over move.l 
cir.w 



Qok 



FIXOV 

FIXOV 

FIXOV 

FXXOV 

FIXOV 

FIXOV 

move . 1 

bra 



Sl,d7 
#l,d7 

d7,ps.widch(a6) 

d5.d5 

d5,al 

d5,d5 

d5,LS. width (a6) 

PS.cols(a6) ,d4 

#2,d4 

d4,a5 

d4,d4 

d5,d4 

d4, LS. inc (a6) 
(a2)+, {a3)- 

(a0)*,d0,dl,d2,d3 
(al)+,dC,d4,d5,d6 

#S3FFF,dO 

#2,dl 

dO,dl 

#2,d2 

dO,d2 

#2,d3 

dO,d3 

#2,d4 

d0.d4 

#2,d5 

d0,d5 

#2,d6 
d0,d6 
dl,dO 
d2,d0 
d3,d0 
d4,dO 
dS.dO 
d6,dO 

#SFFOOFFOO,dO 
Gover 

dl,d2,d3, (a4) + 
d4,d5,d6, (a5)* 
d? , Qdo 

LS. inctaS) ,a4 
LS.inc{a6) , a5 

LS.width{a6) ,aO 
aO,al 

PS. width ( a6 ) .d7 
LS.fend(a6) , a4 
©do 

(a7)^,d4-d7/a3-a5 
a6 

d7, LS, count {a6) 
d7 

dl,d0,d7 
d2,d0,d7 
d3,dO,d7 
d4.d0,d7 
d5,d0,d7 
d6,d0.d7 

LS. count (a6) ,d7 
@ok 



count>>=l 

count -=1 

save width 

width*=2 

Yl+=width 

widch*=2 

save width 

inc=cols 

inc«=2 

pml+=inc 

cols*=2 

incnow 2*cols-width bytes 
save inc 

uv2rgb{*U++, •v++) 

add Ya to RGB values 

add Yb to RGB values 

dO=mask 

dl 8(16) bits 

dl masked 

d2 8(16) bits 

d2 masked 

d3 8(16) bits 

d3 masked 

d4 8(16) bits 

d4 masked 

d5 8(16) bits 

d5 masked 

dS 8(16) bits 

d6 masked 



; if overflow 
; save RGBa 
; save RGBb 
; while 
; pmO+=inc 
; pml-^sinc 
r YO+=width 
' Y1<->Y0 
: count =width 
' pmO<fend 
while 

restore registers 
remove locals 
return 
save count 
AND=0 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 



wo 94/23385 



PCT/GB94/00677 



-759- 



Engineering : KiicsCode : CompPict : Coior2 . a 



ENDFUNC 



If &TYPEt 'seg' )?t*ONDEFINED* 
seg &seg 



then 



endif 
GREY2Y FUNC 



PS 

pixmap 
Y 

area 

width 

cols 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 



EXPORT 

8 
1 
1 
1 
1 
1 



do - WW, dl - vOvl, 62 
aO - pm, al - Y 



v2v3, d3 - xor, d4 - width, d5 - inc, d6 - rowend. 



@dol 
^do2 



link 
movem. 1 

move . 1 
move . 1 
move . 1 
add.l 
move . 1 
move . 1 
sub.l 
move . I 
move. 1 
add.l 
move . 1 
eor .1 
move.w 
asr ,w 
swap 

move . b 

ext -w 
Isl.w 

swap 

move . w 

asr.w 

swap 

move . b 

exc.w 

Isl.w 

move . 1 

move . 1 

cmpa. 1 

blt.s 

adda.l 

cmpa. 1 

blt.s 

movem , 1 

unXk 

res 

ENDFUNC 



as, #0 
d4-d7,. 



(a7) 



PS.pixmap(a6) ,aO 
PS.Y{a6) ,al 
PS.area(a6) ,d7 
a0,d7 

PS. width (a6) ,d4 
PS.cols(a6) ,d5 
d4,d5 

#$7F7F7F7F,d3 

a0,d6 

d4,d6 

(aO)+,dO 

d3,d0 

d0,d2 

#6,d2 

d2 

d0,d2 
d2 

#2,d2 
do 

dO,dl 
#6,dl 
dl 

dO,dl 
dl 

#2,dl 
dl, (al)+ 
d2, (ali+ 
d6,a0 
Qdo2 
d5,a0 
d7,aO 
@dol 



(a7). 
a6 



,d4-d7 



no local variables 
store registers 

pm=pixniap 
Y=Yc 

f end=area 

f end-t-=pin 

width_b=widch 

inc_b=cols 

incjb-=width_b 

xor=S7F7F7F7F 

rowend=pm 

roweiid+=width_b 

vvw=s*pm 

WW is signed 

d2=v2v3 

d2=v2 {10 bits) 

d2=v2??.- 

d2=v2v3 

v3 extended 

d2=v2v3 (10 bits) 

dO=vOvl 

dl=:vOvl 

dl=vO (10 bits) 

dl=vO?? 

dl=vOvl 

vl extended 

dl=vOvl (10 bits) 

*Y=dl 

*Y=d2 

rowend>pm 

while 

pm+=inc_b 

fend>pm 

while 

restore registers 
remove locals 
return 



if &TYPE { ' seg ' ) ?£' UNDEFINED ' then 
seg &seg 
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Y2GR£V FUNC 



pixmap 
V 

height 

widch 

cols 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 



EXPORT 

3 
1 
^ 

1 
1 
1 



dO- spare, dl - v43, d2 - v21, d3 
aO - pm, ai - Y 



Qdol 
@dG2 



0o)c 



@over 



link 
movem . 1 

move . 1 
move . 1 
move . 1 
subq. 1 
move . i 
move . 1 
s\ib.l 
isr . 1 
subq. 1 
move . 1 
move . 1 
move . 1 
move . 1 
move . 1 
sub.l 
sub. 1 
Isr. 1 
Isr.l 
move . 1 
or.l 
andi . 1 
bne. s 
Isl.w 
Isl.w 
Isr.l 
Isl. 1 
or.l 
move . 1 
dbf 

adda . 1 
dbf 

movem. 1 

unlk 

rts 

clr . w 

FIXOV 

FIXOV 

bra. s 

ENDFUNC 



a6,#0 

d4-d7,-(a7) 

PS . pixmao ( a6 ) , aO 
PS.Y(a6) ,ai 
PS. height {a6) ,d7 
#l.d7 

PS.widch(a6/ ,d4 

PS.cols(a6i.d5 

d4.d5 

#2,d4 

#l,d4 
d4,d6 

(al)+,dO 

(al)+,dl 

#$0lFF01FF,d2 

d2,d3 

dO,d2 

dl,d3 

#2,d2 

#2,d3 

d2,dO 

d3,dO 

ffS3F003FOO,dO 

@over 

ff8,d3 

#8,d2 

#8,d3 

*8,d2 

d3,d2 

d2, (aO)* 

d6.@do2 

d5,aO 

d7,@dol 

(a7)-h,d4 -d7 
a6 

dl 

d2 , do , dl 
d3 , dO , dl 
@ok 



spare, d4 - width, d5 - inc, d6 



no local variables 
store registers 

pin=pixiTiap 
Y=Yc 

long height 
height -=1 
long width 
long inc=cois 
inc-=width 

width>>=2 (read 4 values j 

width-=l 

count =vidth 

d0=x4x3 

dl=x2xl 

d2=5ll 

d3=511 

unsigned d2 

unsigned d3 



if no overflow 

d3=0210 

d2=0430 

d3=0021 

d2=4300 

d2=4321 

•pm=d2 

while -i I count 
pm+=inc_b 

while -i!=--height 

restore registers 
remove locals 
return 
AND=0 

A overflow 
3 overflow 



co\int, d 



macro 
GGG 



&V,&SP1,&SP2,&AV 
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move . 1 








Isl.l 


#8,4S?2 


• SP2=1020 




or.l 


&V,&SF2 


• S?2=1122 




move . 1 


&V.&SF1 


• S?l=0102 




swap 


&SP1 


SP1=0201 




move . w 


&SP2,£cSPl 






swap 


&SP2 


COO — "5 O T 1 




move . w 


&SP2,&V 


\/_n 1 1 1 

V = U ± 




move . 1 


&V,&AV 


*pm=v 


« 


move . 1 


&SP1,&AV 


**^m — CD 1 


• _ _ _ _ ^ 


endm 








if &TYPE( 'seg' UNDEFINED' then 






seg 


&seg 






endif 






Y2GGG 
« 


FUNC 


EXPORT 




PS 


RECORD 


8 




pi>anap 


DS.L 


1 




Y 


DS.L 


1 




lines 


DS.L 


1 




width 


DS.L 


1 




cols 


DS.L 


1 






ENDR 







do - v, d4 - width, d5 - inc. d6 - count, 
aO - pm, al - Y 



d7 - lines 



•?do2 



@ok 



link 
movem. 1 

move . 1 
move . 1 
move . 1 
subq.l 
move . 1 
move . 1 
sub. 1 
Isl.l 
Isr.l 
s^abq. 1 
move . 1 
move , 1 
move . 1 
move. 1 
add.l 
add.l 
Isr.l 
Isr.l 
move. w 
and.w 
and. w 
move. 1 
or.l 
andi. 1 
bne.s 
GGG 
GGG 
dbf 

adda . 1 
dbf 



a6,#0 

d4-d7,-{a7) 

PS . pixmao ( a6 ) , aO 
PS.Y(a6) ,al 
PS.lines(a6) ,d7 
#l,d7 

PS. width (a6) ,d4 

PS.cois(a6) ,d5 

d4,dy 

*2.d5 

#2,d4 

#l,d4 

d4,d6 

(al)*.dO 

(al)-^,dl 

#$02000200, d3 

d3.dO 

d3,dl 

#2,d0 

#2,dl 

#$3FFF,d2 

d2,dO 

d2.dl 

d0,d2' 

dl,d2 

#SFFOOFFO0,d2 
@over 



d0,d2,d3, 
dl . d2 , d3 , 
d6 , 0do2 
dS.aO 
d7,9dcl 



(aO) + 
(aO* 



no local variables 
store registers 

pmspixmap 

y=Yc 

long lines 
lines-=l 
long width 
inc=cols 
inc-=width 
inc (bytes) 
width»=2 
width- =1 
count =width 

d0=xlx2 <10 bits signed) 



dl^=x3x4 
d3=plus 
d0=xlx2 
dl=x3x4 
d0=xlx2 
dl=x3x4 
d2=ma5k 
mask do 
mask dl 



(10 bits) 

(unsigned) 
(unsigned) 
(10,3 bits) 
(10,8 bits) 



if no overflow 



while -1!= — cour 
pm+=inc_b 
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movem. 1 


(a7) +,d4-d7 


unlk 


a6 


rts 




clr . w 


d3 


FIXOV 


dO d2 ri'\ 


FIXOV 


dl,d2,d3 


bra. w 


@ok 


ENDFXINC 




macro 




MKRGB2 


&R» SlG, &B, i 


IsL.l 


#8,&G 


or. 1 


&B,&G 


move. 1 


&R,&B 


swap 


&B 


move . w 


&G,&B 


swap 


&G 


move . w 


&G,&R 


andi . I 


#SFFFHTErE.&R 


anai . 1 


if$FFFEFEFE,&B 


move . 1 


&R, &G 


add.Z 


&B,&G 


Isr.l 


#1,&G 



rescore registers 
remove locals 
recurn 
AND-O 

A overflow 
B overflew 



^^RGB. &ROW, tXX 



if &TYPE{ • seg' UNDEFINED' 
seg &seg 



G=G0GO (12) 
G=GBG3 (12) 
B=0ROR (12) 
fl=0ROR (21) 
B=ORGB (2) 
GrGBGB (21) 
R=ORGB (1) 

7 bics for interpolation 
7 bits for interpolation 

G=RGB(1) 

G+=RGB(2) 

G/=2 



move . 1 
s\ib. 1 
Isr.l 
add.l 


&B,&XX 
&R,&XX 
#1,&XX 
&B,4XX 


; XX=:RGB(2) 
; XX-=RGB(1) 
; XX/=2 
; XX+=B 




move . 1 
move . 1 
move . 1 
move . 1 


&R, (&ARGB)+ 
&G. (iARGB)+ 
&B, (&ARGB)* 
SlB, (&ARGB}> 


; •RGBf+=rgb 
; *RGB++=rgb 
; 'RGB-t-t-rrgb 
; 'RGBi-t-irgn 


(1) 
•■(1.5) 
(2) 
(2.5) 


add. 1 
sub. 1 


&ROW, &ARGB 
#16,&ARGB 






move . 1 
move . 1 
move . 1 
move . 1 


&R, (&ARGB)^ 
&G. C&ARGB)* 
SlB, (&ARGB)- 
SlE, (iARGB) - 


; 'RGB^+srgb 
; *RGB-^* = rgb 
; *RGB**=rgb 
; ♦RGa*t. = rgb 


il) 
(1.5) 
(2) 
(2.5) 


sub.l 


&row,&argb 






endin 









then 



end if 



YUV2RGB3 
PS 

pixmao 
Y 
U 
V 



FUNC 



RECORD 
DS.L 
DS.L 
DS.L 
DS.L 

::s.L 



EXPORT 
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width 
cols 



LS 

inc 

widch 

rend 

count 

row 

LSize 



@do 



DS. L 


1 

J. 


DS.L 


1 


EI>IDR 




RECORD 


0 , DECR 


DS.L 


1 


DS.L 


X 


DS. L 




DS. L 




DS.L 




EQU 


• 


ENDR 






ax • xi» a2 ~ u, a3 - V» a4 


dO , . 6 - 


uscui Qf - counc 


link 


ao , 7LS . Lbize 


ino vem . i 


a4-d7/a3-a5. - (a7) 


move . 1 


PS.pi»nap{a6) , a4 


move - 1 


a4. a5 


move . 1 


PS.Y(a6) ,aO 


move. 1 


aO.al 


move, 1 


PS.U{a6) ,a2 


move . 1 


PS.V(a6) ,a3 


move. 1 


PS.area(a6) ,d7 


Isl. 1 


ff2,d7 


add. 1 


a4,d7 


move . 1 


d7,LS.fend(a6) 


move . 1 


PS. widch (a6) . d5 


move . 1 


d5,d7 


asr. 1 


#l,d7 


subq. 1 


wl,d7 


move . 1 


d7, PS. width (a6) 


add. 1 


d5,d5 


add.l 


d5,al 


add.l 


d5,d5 ; 


move . 1 


d5,LS. width fa6) 


move . 1 


PS.Colsfa6) ri4 


Isl.l 


#2 , d4 


move . 1 


d4,LS.rDw(a6) 


add. 1 


d4 . a5 


add. 1 


d4,a5 


add. 1 


d4 , d4 


add. :. 


d4 . d4 


sub. 1 


d5 , d4 


sub. 1 


d5 , d4 


move . 1 


d4,LS.inc(a6) 


UV2RGB3 


(a2)+,(a3)+ 


FETCKY 


(a0)+,d0,dl,d2,d3 


FETCHY 


Ul)i-,d0.d4,d5,d6 ; 


move .w 


#$3FFF,dO 


Isr.l 


#2,dl 


and.w 


do , dl 


Isr.l 


#2,d2 ; 


and.w 


d0,d2 


Isr.l 


#2,d3 


and.w 


dO,d3 ; 


Isr.l 


#2,d4 


and.w 


do , d4 


Isr. 1 


^2.d5 



V, a4 - pmO, a5 - pml 

inc, widch, fend and rowend are loca 
store registers 



pmO=pixmap 
pmlspmO 

YO=yc 
yi=YO 

U=Uc 
V=VC 

£end=:area 

f end«=2 

f endf =pmO 

save fend 

widch=widch 

count=widch 

count>>=l 

count -=1 

save width 

width* =2 

Yl+=width 

width* =2 '* 

save width 

inc=cols 

inc«=2 
•NEW save row 

pml += inc 
•NEW pml+=inc 

cols«=2 
*NEW cols*=2 

inc now 4* cols -widch bytes 
•NEW inc now 4 •cols-width bytes (wid 

save inc 

uv2rgb(*U++, *V+-h) 

add Ya to RGB values 
add Yb to RGB values 

dO=mask 

dl 8(16) bits 

dl masked 

d2 BUS) bits 

d2 masked 

d3 8(16) bits 

d3 masked 

d4 8(16) bits 

d4 masked 

d5 8(16) bits 



I 
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and. w 
Isr.i 
and. w 



d0.d5 
»2,d5 
dO,d6 



d5 masked 

do 8(16) bits 

d6 masked 



move . I 

or.l 

or.i 

or.l 

or.l 

or.l 

andi . 1 

bne.w 



dl,dO 
d2,d0 
d3.d0 
d4,dO 
d5,d0 
d6,d0 

#SFrOOFFOO,dO 
eover 



if overfiov/ 



<3ok MKRGB2 dl,d2 , d3 , a4, LS. row(a6) ,dO 

MKRGB2 d4 , d5 , d6 , a5 , LS . row ( a 6 ) , dO 

dbf d7 , Qdo 

adda.l LS . inc (a6 ) , a4 

adda.l LS, inc (a6 ) , a5 

adda.l LS. widchtaG ) , aO 

exg.l aO.al 

move.l PS. widch { a6 ) ,d7 

cmpa.l LS. f end(a6} « a4 

blt-w @do 



; 'NEW save RGBa 
; *NEW save RGBb 

while 

pmO'*-=inc 

pml+=inc 

YO^-=width 

Yl<->yG 

count =width 

pmO<fend 

while 



movem .1 ( a7 ) + , d4 -d7 / a3 - a 5 

unlk a6 

res 

9 over move.l d7 , LS .count Ca6) 

clr.w d7 

FIXOV dl,d0.d7 

FXXOV d2,d0.d7 

FIXOV d3»d0.d7 

FIXOV d4,d0.d7 

FIXOV d5,d0,d7 

FIXOV d6,d0,d7 

move .1 LS . count ( a6 > , d7 

bra 0ok 



restore registers 
remove locals 
return 
save count 
AND=0 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 



EITDFUNC 



macro 
FETCHY2 



SAY, &Y, &R, &Gr &B 



move . 1 
asr. w 
swap 
asr .w 
swao 
add.l 
add.l 
add.l 



5tAY 

**2, 

&Y 

#2, 

&Y 

&Y, 

&Y, 

&Y, 



tY 
&Y 

&Y 

SlR 
SlG 



Y is -12B to -127 

RED, Get {Y-^ 2V + 512) for Red = (Y i- 
GREEN, Get (Y + (512 - (6U/16) ) - V) 
BLUE, Get (Y + (2U + 512) for Blue = {* 



endm 



macro 
UV2RGB4 

move . w 
and.w 
move . 1 
move . 1 
move. 1 
move . w 



&AU,&AV 

SAU.d2 
#S03FF,d2 
(a6.d2.W8) ,d3 
d3,d6 

4(a5,d2.W8| ,d5 
^AV,dl 



;BLUE,Get (2U 512) /4 for Blue = (Y 
;Dup for second pair 

;GREEN, Get (512 - (6U/16))/4 for Gree 
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move.w dl,d4 

asr.w 92, dl 

sub.w dX,d5 ;GR££N, Get (512 - (6U/i6) - V)/4 for • 

move . w d5 , d2 

swap d5 

move.w d2,d5 

move.i dD,d2 ;Dup for second pair 

and.w #S03Fr ,d4 

move.i (a6.d4.w*8) ,d4 ;RED, Get (2V ^ 512) /4 for Red = (Y + 

move .1 d4 , dl 



endm 



MKRGB2SUB FUNC EXPORT 

MKRGB2 dl,d2,d3,a4,d7,d0 ; *NEW save RGBa 

MKRGB2 d4,d5,d6,a5,d7,d0 ; -NEW save RGBb 

res 

ENDFDNC 



OVERSUB FUNC 



EXPORT 



move . 1 
or.l 
or.l 
or.l 
or.l 
or.l 
andi . 1 
bne . s 
Qok rts 
Qover move.i 
clr.w 
FIXOV 
FIXOV 
FIXOV 
FIXOV 
FIXOV 
FIXOV 
move . 1 
■ bra 



dl,dO 
d2,d0 
d3,d0 
d4,d0 
d5,d0 
d6,d0 

#$FFOOFFOO,dO 
©over 



'(sp) 



d7, 
d7 

dl , do , d7 
d2,d0,d7 
d3 , do , d7 
d4 , do , d7 
d5 , dO , d7 
d6 , do . d7 
(3p)+,d7 
9 ok 



if overflow 

save count 
ANDxQ 

A overflow" 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 



ENDFUKC 
LT'/2RGB4SUB FUNC EXPORT 

w 

UV2RGB4 {a2) + .(a3)+ ; uv2rgb( *U+-h, *V-t"i-) 

rts 

» 

ENDFUNC 



FETCHY2SUB FUNC EXPORT 

4- 

FETCHy2 (a0)+,d0,dl,d2,d3 ; add Ya to RGB values 

FETCHY2 (al)-t-,d0,d4,d5,d6 ; add Yb to RGB values 
rts 

ENDFDl^C 



if iTYPE ' ' Feg • ) * • TTfTT3£pxNED • ^hen 
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seg &seg 
endir 

YUV2RGB5 TWC HIXPORT 



PS 


RECORD 


3 


Table 


DS.L 


1 


pixmap 


DS.L 


1 


Y 


DS.L 


1 


U 


DS.L 




\r 


DS.L 




area 


DS.L 


1 


width 


DS.L 


1 


cols 


DS.L 


1 




ENDR 




LS 


RECORD 


0 


inc 


DS.L 


1 


width 


DS.L 


1 


fend 


DS.L 


1 


count 


DS.L 


1 


row 


DS.L 


1 


LSizG 


EQU 






ENDR 





aO - YO, al - Yl, a2 - U. a3 - V. a4 - pmO, a5 - pml 
d0..6 - used, d7 - count 



link 


a6,#LS.LSi2e 


; inc, width, fend and rowend are loca 


movem . 1 


d4-d7/a3-a5, -(a7) 


; store registers 


move . 1 


PS. pixmap (a6) , a4 


; pmO=pixmap 


move . 1 


a4,a5 


; pml=pmO 


move . 1 


PS.Y{a6) ,aO 


; YO=Yc 


move. 1 


aO, al 


; Y1=Y0 


move . 1 


PS.U(a6l ,a2 


; U=:Uc 


move . 1 


PS.V(a6) ,a3 


; V=Vc 


move. 1 


PS, area (a6) ,d7 


; fend=area 


Xsl.l 


#2,d7 


• fend<<:=2 


add. L 


a4,d7 


• fend+=pmO 


move . 1 


d7,LS.fend(a6) 


• save fend 


move . 1 


PS. width (a6) . d5 


• width=width 


move . 1 


d5,d7 


count =width 


asr . i 


#I,d7 


count»=i 


subq. 1 


#l,d7 


count -=1 


move . 1 


d7, PS.v^idthfaS) 


save width 


add. I 


d5,d5 


width»=2 


add.l 


d5,al 


Yl+=width 


add.l 


dS.dS 


width* -2 


move . 1 


d5,LS. width (a6) 


save width 


move . 1 


PS.cols(a6) ,d4 


inc=cols 


Isl.l 


#2 , d4 ; 


inc<<=2 


move . i 


d4,LS.row(a6) 


•NEW save row 


add. 1 


d4,a5 ; 


pml+=inc 


add.l 


d4 , a5 ; 


•NEW pml sine 


add. 1 


d4 . d4 


cols^=2 


add. 1 


d4 > d4 


•NEW cois*=2 


sub. 1 


d5 r d4 


inc now 4*cois-width bytes 


sub.l 


d5 , d4 


•NEW inc now 4*cols-width bytes (wid 


move . 1 


d4 , LS . inc ( a6 ) 


save inc 
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Qover 



niove . i 


a6, - (sp) 




move . 1 


LS .row(a6 ) , d7 




move . i 


PS.Table(a6) ,a6 




UV2RGB4 


(a2)+, (a3)+ 


; uv2rgb(*U+-H, 'V-^-) 


r ETCH 1 £. 


( ao ) + , GO , ai , d2 , g3 


; add Ya co RGB vai 




( ax ) + , GO , a4 . as , Go 


; ada Yd to RGs vai 


move . i 


di,dO 




or.i 


d2,d0 




or.l 


d3,d0 




OJT . 1 


a4 , GU 




or. i 


a5« GO 




or . i 


do , GO 




andi . 1 


#$FrOOFFOO,dO 




bne. w 


eover 


; if overflow 


MKRGB2 


dl,d2,d3,a4,d7,d0 


; *NSW save RGBa 


MKRGB2 


d4,d5,d6,a5,d7,d0 


; *NE7.V save RGBb 


move . 1 


( sp)+, aS 




move . 1 


(sp)+,d7 




dbf 


d7,3do 


; while 


adda . 1 


LS.inc{a€) ,a4 


; pmO+=inc 


adda. 1 


LS.inc(a6) .a5 


; pml-r = inc 


adda. 1 


LS.widtli{a6) ,aO 


; yOi-=widci: 


exg. 1 


aO,al 


; Y1<->Y0 


move . 1 


PS.width(a6) ,d7 


; count =width 


cmpa . 1 


LS.£end(a6] » a4 


; pmO<fend 


blc.s 


@do 


; while 


movem . 1 


(a7) + ,d4-d7/a3-a5 


; restore registers 


unlk 


a6 


; remove locals 


rts 




; return 


move . 1 


d7,LS. count (a6) 


; save coiint 


clr . w 


d7 


; AND=0 


FIXOV 


dl.dO,d7 


; A overflow 


FIXOV 


d2 . do , d7 


; B overflow 


FIXOV 


d3,d0,d7 


; A overflow 


FIXOV 


d4,d0,d7 


; a overflow 


FIXOV 


d5 , dO. d7 


; A overflow 


FIXOV 


d6 , dO. d7 


; B overflow 


move . I 


LS. count (a6) ,d7 


; restore count 


bra 


@ok 




ENDFUNC 







END 
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* © Copyrighc 19 93 XLICS Limited 

* Ail rights reserved. 

* Written b^-: Adrian Lewis 



/* 

Analyse GLUT setup and pick appropriate 
YU\'->RGB converter /display driver. Create 
any cables necessary. 

'/ 

?*include <OuickDraw.h> 
"include <Memory.h> 

■define V^LEVELS 64 
=detine CP/.LE^^TLS 15 

^define absvtv) ( ( v> <0?- ( v) : ( v) ) 
?define New Pointer (per , type, size ) \ 
save2one=Get2one < ; ; \ 
SetZone (SystemZone ( ) ) ; \ 
if {nil== (ptr= (cype)NewPtr { size) 1 ) { \ 
SetZone (ApplicZone { ) ) ; \ 
if (nil== {ptrr (cype)NewPcr (size) ; ) { \ 
SetZone (saveZone) ; \ 
return ( MemoryError { ) ) ; \ 

) \ 

> \ 

SetZone (saveZone) ; 

typedef struct { 

char y , u , v ; 

} yuv_ciut; 

/ * 

unsigned char • 

CclourCiut (CTabHandle clut ) 

int size, y , u» v, r, g, b, i; 

unsigned char -table; ^ 

Yir;_Clut •yuv_clut ; 

size^ t -clut ) ->ctSi2e; 

-abie= (unsigned char * )NewPtr ( Y_LE^/ELS»UV„LEVELS"*tr/ LEP/ELS) ; 
yuv_clut=(YUV_Ciut *)NewPtr (size-sizeof (YUV_Clut ) ) ;" 

£or ( i=0; i<=size: i+-f ) { 

r=:( Cclut) ->ctTable(i] . rgb. red»8 } -12 8 ; 
g={ (•clut)->ctTable(i3 . rgb.gr een>>8) -128; 
b=( fcluc) ->ctTable[i] . rgb.blue»8) -12 8 ; 

yuv_clut(il .y= (306*r + 601*g + 117»b)»10; 
yuv_clut(il .u= (512*r - 429-g - 83*b)»10: 
^ yuv_cluc(i] .v= (-173*r - 339*g ^ 512'b)»10; 

f o r ( y = - Y_LEVELS / 2 ; y < Y.LHVELS/ 2 - 1 ; y + + ) 
for I u=-QV_LEVELS/ 2 ; u<UV_LE\'ELS/ 2 -1 ; u+* ) 
for { v=-UV_LZVZLS/ 2 ; v<UV_LEVELS/ 2 - 1 ; v+-^ ) { 

int index, error, error2 , points , Y, u. V; 
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- Y=y«4; 
U=u<<5; 
V=v«5; 

index=0; 
error=i31072; 
error2=131072; 
poincs=0; 

for ( 1=0; i<=size; i++) { 
inc pcs=0, err=0; 

if (yuv.clutCi] .y>=Y && yuv_cluc {i] .y<Y+16 ) 

pts+=l; 
err+=absv{yuv_cluc [i] .y-Y) ; 

if (yuv_clut [i] .u>=U && yuv_clut [ i] . u<U+32 i 

pcs+=l; 
err+=absv(yuv.clut [i] .u-U); 

if (yuv.clut [i] .v>=V vaiv_clutti] •v<V-»-32) 

pcs+=l; 
err+=absv{yuv_clut[i] .v-V) ; 

if (pcs>points ( I (pts==poincs && err<error) ) { 
error=err; 
index=i; 
poincs=pts; 

) 

} 

i=( (y&0xlF)«8) I ( (u&0xF)«4) [ (vtOxF) ; 
table [i]= (unsigned char) index; 

) 

DisposePcr{ (Ptr)yuv_clut:) ; 
recum cable; 

)*/ 

cypedef union { 

long pixel; 

unsigned char rgb[4]; 
} Pixel; 
/ • 

unsigned long * 

ColourClut (CTabHandle clut) 

long size, y, u* v, r, g, b. ro, go, bo,i; 
Pixel 'tables- 
sizes ( *clut ) ->ctSi2s; 

Cable= (Pixel * ) NewPCr (Y_LEVELS*UV_LEVELS*UV_LEVELS*si2eof { long) ) , 

f or ( y = - Y^LEVELS / 2 ; y < Y_LEVELS / 2 - 1 ; y ) 
f or ( u = - UV_LEVELS / 2 ; u<UV_LEVELS / 2 - 1 ; u + + ) 
£or(v=:-UV_LEVELS/2;v<UV_LEVELS/2-l;v*+) ( 

Pixel px; 

long . base, dith; 

r = 32768L + ((y«9) + 1436L*u «2 ) ; 

g = 32768L + ((y«9) - 73lL*n - 352L*v «2); 

b = 3276aL * ((y«9) + 1815L*v «2); 

r=r<0?0:r>65534?65534:r; 
g=g<0?0:g>65534?65534:g; 
b=b<0?0 :fc>65534 755534 :b: 
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ro=:r%i3107; r = r/13i07 
go=g%i3107; g=g/13107 
bo=b%13107; b=b/i3107 

base=215- (35*r-^6*g+b) ; 

dith=base-(ro>2621?36:0)-{gc>7853?5:0)-fbo>i0484'l-0) • 
px.rgb(0J=dich^=215?255:dich; 

dith=base- ( ro>5242 ?36 : 0) - (go>10484 ?6 : 0 ) - { bo>26^1'l • 0 ) • 
px.rgb[l)=dich==215?255:dich; ' * ' 

dich=base- (ro>7863?36:0) - {go>252I?6 :0) - 'bo>5242'l- 0) • 
px.rgb[2] =dich==215?255:dith; 

dith=rbase- {ro>104 84736 rO) - {go>5242?6 : 0) -(bo>7863''l-0) • 
px.rgb[3]=dit:h==215?2S5:dich; " * ' 

i=( (y&0x3F)«8) I ( {u&0xF)«4) i (v&OxF) ; 

^ cable(i] .pixel=px. pixel; 

recuim (unsigned lcng*)cable; 



typedef s truce { 

long red, green, blue; 
) RGBError; 

OSErr ColourCluc ( Pixel *»cable) 

long y, u, V, r, g, b, i; 
RGBError *err; 
THz saveZone; 

NewPoin-er stable. Pixel-, Y_LEVELS*UV_LEVi:LS*av LEVEHB^sizeof ( long) ) ; /* 64k ca.' 
NewPointier (err, RGBError*, Y.I£VELS-t;v_I^LS-tA/:LEVELS*fi2e^ 

for ( i = 0; i<4 ; i+*) 

f or (y=-Y_LEVELS/2 ;y<Y_LEVELS/2 ;y** I 
f or {u = -C?/_LE\'ELS/2 ; u<UV_LEVELS/2 ;u+* ) 
for (v=-Ln''_LEVELS/2; v<UV LEVELS/ 2 ; vt-^i- ) f 

RGBCoior src, dsr; 

long index. in; 

index=( (y&0x3F)<<8) I ( (u&0xF)«4) I (v&OxF) ; 

r = 32768L + ( (y«9) ^ (1436L*u) «2); 

g = 32768L ((y«9} - (73lL*u) - (352L*v) «2)* 

b = 32768L + ( (y«9) ^ {1815L«v) «2); 

if (i>0) ( 

r-=err [index] . red; 
g-=err [index] .green; 
b-=err [index] .blue; 

} 

src.red=r<0?0 :r>65534?65534 :r; 

src.green=g<0?0:g>65534?65534ig; 

src.blue=b<0?0:b>65534?65534:b; 

'•rablei ( in:iex} . rabCi 'unsigned Th^.r^Col-rSInder '-ccrc^ : 
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Index2Colcr( (♦cable) [index] . rgtsCiJ ,&dsc} ; 
err ( index] . red=dsc . red-src . red; 
err ( index] .green=dsc .green-src .green ; 
err ( index] .biue=dst .blue-src .blue; 

} 

DisposePcr ( (Ptr) err ) ; 
return (noErr) ; 

} 

cypedef struct { 

short pel [2] ; 
} PixX6; 

typedef struct { 

unsigned char pel [4]; 
) ?ix8; 

#define YS 64 
#define UVS 32 

OSErr Colours (Pix8 **cable) 
{ 

long y, u, v, r, g, b, i; 
RGBError *err; 
THz save Zone; 

NevfPointer(*table»Pix8*,YS*UVS*UVS*sizeof (Pix8) ) ; /• 128k cable */ 
NewPoincer (err, RGBError*, ys*UVS*UVS*sizeof (RGBError) ) ; 

for (i=0; i<4; i+-t-) 
for (y=-yS/2 ;y<YS/2 ;y++) 
f or (u=-UVS/2 ; u<UVS/2 ; u-h+ ) 
f or ( v=-UVS/2 ; v<UVS/2 ; v-k+ ) { 

RGBColor src, dst; 

long index; 

index=(y«10) ! { (u&0xlF)«5) I (v&OxlF) ; 

r = 32768L ^ ((y«10) + (1436L*U) «1) ; 

g = 32768L - ((y«10) {73lL»u) - (352L-v» «1) ; 

b = 32768L * {(y«10) + (1815L-V) «1) ; 

if (i>0) { 

r-=err(32768-i-index] .red; 
g-=*err [32768 + index] .green; 
b-=err [32768+index] .blue; 

) 

src.red=r<0?0:r>65534?65534:r; 
src.green=g<0?0:g>65534?65534 :g; 
src.blue=b<0?0 :b>65534 765534 :b; 

(♦table) [32768 + index] .pel [i] = (xmsigned char) Color2Index( &src) ; 
Index2Color( ('table) [ 32768findexl .pel[i] , &dst ) ; 

err t 32768+index] .red=dst . red-src. red; 

err [32768+ index ] . gr een=ds t - green - s rc . green ; 

err [32768+index] .blue=dst. blue-src. blue; 

) 

DisposePtr( (Ptr) err) ; 
return (noErr) ; 

) 
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OSErr CoiouriS ( PixlS ••cable) 



long : 
RGBError 
THz 



y, u. V, r, g, b, i; 

•err; 
saveZone; 



NewPoincerCcabie. Pixie*, YS*tP/S*UVS*sizeof (Pixl6) ) ; /* 128k cable */ 
NewPoincer t err, RGBError •,ys*tjVS*UVS* si zeof (RGBError) ) : 

for(i=0; i<2; i+-f ) 
:or(y=-YS/2;y<YS/2;y++) 
for ( u=-UVS/2 ; u<UVS/2 ;u^+ ) 
C0r(v=-UVS/2;v<LA/S/2;v-f+) ( 

RGBColor src, dsc; 

long index; 

index=(y<<10) I ( tufi:0xlF)«5) I (v&OxlF) ; 

r = 32768L - { (y«10) + (1436L-U) «1); 

g = 32768L * ((y«10} - (731L-U) - (352L*v) «1) ; 

b = 32768L - ((y«10) + (ISlSL'v) «1) ; 

if (i>0) ( 

r-=err C32768+index) .red; 
g-=err (32768+index) .green; 
b-=err [ 32768+indexj .blue; 



src.red=r<C?0:r>65534?65534:r; 
5rc.green=g<0?0:g>65534?65534 :g; 
src.blue=b<0?0:b>65534?65534:b; 
dsc.red= src. red&OxFSOO.- 
dsc.greens src.greeniCxFSOO: 
dsc.blue= src .blue&0xF800; 



(•cable) [32766+index] . pel [i] = (dsc .red»l) I (dsc.green>>6) I (dsc .blue>>ll) ; 

err [32768^index) . red=dsc . red-src . red; 

err (32768-^index) . green=dsc .green- src .green; 

err[32768 + index) . blue=dsc . blue-src. blue; 



DisposePcr( (Per) err) ; 
recurn moErr) ; 



Boolean 

GreyCluc{CTabHandle clue) 



Boolean result=crue; 
int i, size; 



siie=:(*cluc) ->ccSize; 
for (i=0; i<=si2e result; { 



inc r , g , b ; 



r= Cclut) ->ccTable[i] . rgb.red; 
g= Ccluc) ->ccTable(i] .rgb. green; 
b= ( 'Clue ) ->ccTable [ i ] . rgb . blue ; 



resulc=(r==g && g==b) ; 

1 
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recurn result; 
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® Copyright 1993 KLICS Limited 
Ail rights reserved. 

Written by: Adrian Lewis 

» 

Bits3.h: fast bit. read/wrice definitions 



buf.use define scacic variables 

buf_winit initialise vars for wrice 

buf_rinic initialise vars for read 

buf_set set current bit 

buf_get get current bit 

buf.winc increment write buffer 

buf_rinc increment read buffer 

buf.size fullness of buffer in bytes 

buf.flush flush buffer 

User defined macro/ function buf_over must be defined in case of buffer overt lo* 

typedef struct ( 

unsigned long *buf; 
union { 

xinsigned long mask; 
long bno; 
) index; 

unsigned long *ptr. data, size; 
> Buffer, *Buf; 

^define buf_winit ibuf ) \ 

buf->index.mask=0x80000000; \ 
buf->ptr=&buf ->buf (OJ ; \ 
buf->data=0; 

^define buf_rinit (buf ) \ 
buf -> index. bno=0; \ 
buf ->pcr=&buf ->buf (0] ; 

^fdefine buf_set(buf> \ 

buf->data 1= buf ->index. mask; 

=def ine buf_get (buf ) \ 

0! = (buf->data & { l«buf->index.bno) ) 

^define buf_winc (buf ) \ 

if ( buf-> index. mask== 11 { \ 
•buf->ptr=buf->data; \ 
buf ->data=0; \ 

buf ->index.mask=0x80000000; \ 
buf->ptr++; \ 
} else buf -> index. mask 1; 

^define buf.rinc (buf ) \ 

if (-- (buf ->index.bno)<0) ( \ 
buf ->data=*buf ->ptr■^+; \ 
buf - > index. bno=31; \ 

); 



/* buf.size only valid after buf _f lush *' 



wo 94/23385 



PCT/GB94/00677 



-775 - 



Enginesring: KlicsCodeiCompPicc :Bics3 .h 

"define buf^size (buf ) \ 

(unsigned char *) buf->pcr- (unsigned char *)&bvf->buf CO] 

"define buf _f lush ( buf ) \ 

if tbuf->index.maski=0x80000000) { \ 
buf->dacal =buf->index.mask-l; \ 
•buf->pcr=buf->data; \ 
bu£->pcr+-i-; \ 

} 
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63000 Bit buffer code (Bics2.h) 



Macros : 

buf_winir. 
buf_rinit 
buf_set 
buf_get 
buf _winc 
buf _rinc 



&ptr, &daca,&inask, &buf 
&pcr, &bno, &buf 
£tdata, &mask 
&daca, &bno 
iptr, &data,&maslc 
&ptr, &daca, iindex 



buf_f lush &ptr, &daca,imasJc 



macro 






buf_winic 


&pt r , &data , fionask , tbu f 




move . 1 


#$80000000, tmask 


; mask=100 . . 


move . 1 


&buf , &ptr 


; pcr=buf 


clr. 1 


&daca 


; data-0 


endm 






macro 






buf_rinic 


&pcr, &bno, &buf 




clr.b 


&bno 


; bno=0 


move . 1 


&buf , &ptr 


; ptr=buf 


endm 






macro 






buf_set 


&daca, &inask 




cr.l 


£tmask, £tdata 


; data 1= mask 


endm 






macro 






buf^get 


&dat:a, &bno 




suixi.b 


#l,&bno 




btsc 


&bno , &data 




endm 






macro 






buf _winc 


£cpcr, &data,temask 




Isr.l 


#1, &mask 


; mask»=l 


bne. s 


Pcont 


; if non-zero continue 


move . 1 


&daca, (&ptr) + 


; •ptr+-t-=Qaca 


clr.l 


&daca 


; daca=0 


mcve . 1 


50000000, ^imask 


; na s k^ 1 0 0 . . . 
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endm 




macro 






buf_rinc 


&pcr, &daca, &bno 




cmpi.b 


416.&bno 




bge. s 


@cont 




swap 


fidata 




move .w 


(&ptr) + ,&daca 




add.b 


7l6.&bno 


Scont 








endm 






macro 






buf_f lush 


&pcr, Sdaca, &mask 




cmp . 1 


#580000000, ^mask 




beq. s 


Scone 




move . i 


&daca. { &ptr) + 




endm 





mask-8000000? 

if buffer enipcy poncinue 

•pcr+-^=data 
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• © Copyrighc 1993 KLICS Limited 

• All rights reserved. 

• Wriccsn b>': Adrian Levis 

* / 

/* 

Extra fast BackwardXconvolver 

New wavelet coeffs :3511, 12 1, 11 

Optimized for speed: 
dirn - False 
src/dst octave == 0 

'/ 

«*define BwdSO (addrO , dAG. dAH, dBH) \ 
v=» (short *)addrO; \ 
dAG= -v; \ 
dAH= v; \ 
dBH= v«l; \ 

^define BwdSl (addrl, addrO , dAG, dAH,dEHl \ 
v=*( short "Jaddrl; \ 

dBH+= v»l; \ 

dAG+= v*(vs=v«l}; \ 

dAH-= v-^ (vs«=l) ; \ 

* {shore *)addrO=dBH»l; 

?define Bwd2 (addr2 , dAG, dAH, dBG, dBH) \ 
v= • ( short • ) addr2 ; \ 
dBG= -v; \ 
dBH= v; \ 

dAH+= v+ ivs=v<<l) ; \ 
dAG+= v+(vs«=l) ; 

9define Bwd3 (addr3 . addr2, addrl , dAG, dAH, dBG, dBH ) \ 
v=» (short ')addr3; \ 
dAH+= v; \ 
dAG-»-= v; \ 

d3G+= v+(vs=v<<l); \ 

dBH-= V* lvs«=l) ; \ 

•I Short •)addrl=(dAH-hl)»2; \ 

•{short •)addr2=tdAG^l)»2; 

ifdetine BwdO ( addrO , dAG, dAH, d3G . dBH) \ 
v=* (shore *)addrO; \ 
dAG= -v; \ 
dAH= v; \ 

dBH+= V+(vs=v<<l); \ 
dBGfs v+(vs<<=l); 

ffdefine Bwdl (addrl,addrO, addr3,dAG»dAH,dBG.dBH) \ 
v=*( short •)addrl; \ 
dBH+= v; \ 
dBG+= y; \ 

dAG+= v*(vs=v<<l); \ 

dAH-=: v■^(vs<< = l) ; \ 

•(short •)addr3=(dBH+l) »2; \ 

"(short •)addrO=(dBG-^l)>>2; 

*de f ir.e BwdE- ( addr 2 , dAG . dAH , ISH : * 
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v=* (short *)addr2; \ 
dBH= vs=y«i; \ 
dAH+= v*(vs=v«l); \ 
dAG+= v-^(vs«=l) ; 

"define Bwd£3 (addr3 » addr2 , addrl,dAG,clAH,dBH} \ 
v=* (shore *}addr3; \ 
dAH+= v; \ 
dAG+= v; \ 

d3H-= v+(vs=v«l); \ 
dBH-= v+(vs«=l); \ 
•(Shore ')addrl=(dAH+l)»2; \ 
*i shore *)addr2={dAG+I)»2; \ 
*( short •)addr3=dBH»l; 

^define Bwd (base, end, inc) \ 
addrO=base: \ 
addr3 =addr 0 - ( inc»2 ) ; \ 
addr2=addr3- (inc»2) ; \ 
addrl=addr2 - ( inc»2 ) ; \ 
BwdSOfaddrO,dAG,dAH,dBH) ; \ 
addrl+=inc; \ 

BwdSl(addrl,addrO,dAG,dAH,dBH) ; \ 

addr2+=inc; \ 

while (addr2<end) { \ 

Bwd2(addr2,dAG,dAH,dBG,dBH) ; \ 

addr3+=inc; \ 

Bwd3 ( addr 3 , addr2 , addrl , dAG . dAH . dBG , dBH ) ; \ 
addrO+=inc: \ 

BwdOtaddr0.dAG,dAH,dBG,dBH) ; \ 
addri+=inc; \ 

Bwdl (addrl, addrO,addr3,dAG, dAH, dBG, dBH) ; \ 
addr2+=inc; \ 

) \ 

BwdE2(addr2,dAG.dAH,dBH) ; \ 
addr3+=inc; \ 

BwdE3 { addr 3 , addr 2 , addrl , dAG , dAH , dBH ) ; 

^define BwdS0r2 (addr 0, dAG, dAH, dBH) \ 
v=* (snort *)addrO; \ 
dAG= 0; \ 
dAH= v: \ 
dBH= v; \ 

"define BwdSlr 2 (addrl , addr 0, dAG, dAH, dBH) \ 
v=» (short *) addrl; \ 
dBH+= v»2; \ 
dAG+= v; \ 
dAH-= V«l: \ 
•(short ')addrO=dBH; 

#define Bwd2r 2 (addr 2, dAG, dAH, dBG, dBH) \ 
vr* (short •)addr2; \ 
dBG= 0; \ 
dBH= v; \ 
dAH+a v; \ 
dAG+= v«i; 

#define Bwd3r2 (addr 3 , addr2, addrl, dAG, dAH, dBG, dBH) \ 
v=* (short 'jaddrS; \ 
dAHt-= 0; \ 
dAG+= v; \ 
dBG-^= v: \ 
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dSH-= V<<1; \ 

'(shorr Maddrl=dAH>>l; \ 
* (shore *)adGr2=dAG>>l; 

^define Bwd0r2 (addrO. dAG. dAH, dBG, dBHl \ 
v='( short *)addrO; \ 
dAG= 0; \ 
dAH= v; \ 
dBH-^= v; \ 
dBG+= 

-define Bwdir2 (addrl, addrO. addr3 , dACdAH, d3G, dBH) \ 
v=*i shore ')addrl; \ 
dBH+= 0; \ 
dBG-r= v; \ 
dAG+= v; \ 
dAH-= v«l; \ 
*( Short *)addr3=:dBH»l; \ 
* (short ♦)addrO=dBG»l; 

TFdefine BwdE2r2 (addr2 .dAG,dAH,dBH) V 
v=»( short -)addr2; \ 
dBH= v; \ 
dAH+= v; \ 
dAG+= V<<1; 

5d9 f ine Bwd£3 r 2 ( addr 3 , addr 2 , addr 1 , dAG . dAH , dBH ) \ 
v=» (short •)addr3; \ 
dAH+= 0; \ 
dAG+= v; \ 
dBH-= v; \ 
dBH-= v«l; \ 
*( short *)addrl=dAH»l; \ 
•(short •)addr2=dAG»l; \ 
* (short *)addr3=dBH; 

*fde f ine Bwdr2 ( base . end . inc ) \ 
addr 0= base; \ 
addr3=addrO- (inc»2) ; \ 
addr2=addr3- ( inc»2) ; \ 
addrl=addr2- ( inc>>2 ) ; \ 
BwdS0r2(addr0,dAG,dAH,dBH) ; V 
addr 1+= inc: \ 

BwdS Ir 2 ( addr 1 , addr 0 , dAG » dAH , dBH i ; \ 

addr2-^ = inc; \ 

while (addr2<end) ( \ 

Bwd2r2(addr2.dAG,dAH,dBG,dBHl ; \ 

addr3+=inc; \ 

Bwd3r2 ( addr3 , addr2 , addrl , dAG , dAH , d3G , dBH ) ; \ 
addrO+=inc; \ 

Bwd0r2 { addr 0» dAG, dAH, dBGr dBH) ; \ 
addrl+=inc; \ 

Bwdlr2 t addrl . addrO , addr 3 . dAG , dAH , dBG , dBH ) ; \ 
addr2+=inc; \ 

) \ 

BwdE2r2(addr2,dAG,dAH,dBH) ; \ 
addr3-*- = inc; \ 

BwdE3r2 { addr3 . addr2 , addrl , dAG , dAH , dBH ) ; 

#def ine BwdS0r3 (addrO,dAG,dAH,dBH) \ 
v=* (short •)addrO; \ 
dAG= 0; \ 
dAH= 0; \ 
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cBH= v»l: \ 

^define BwdSlr3 (addrl, addrO»d^G,dAH,dBHj \ 
v=- (short •)addrl; \ 
d3H*= v>>3; \ 
dAG+= v; \ 
dAH-= v; \ 

•(short *)addrO=dflH«l; 

ffdefine Bwd2r3 (addr2 . dAG, dAH,dBG. dBH) \ 
v=» (short »)addr2; \ 
dBG= 0; \ 
dBH= 0; \ 
dAH+= v; \ 
dAG+= v; 

pdefine Bwd3r3 (addr3 ,addr2, addrl,dAG.dAH,dBG,dBH) \ 
v=* (short •)addr3; \ 
dAH+= 0; \ 
dAG+= 0; \ 
d3G+= v; \ 
dBH-= v; \ 

•(Short 'jaddrlrdAK; \ 
•(short *)addr2=dAG; 

^define BwdOr3 (addrO, dAG, dAH, dBG, dBH) \ 
v=» (short •)addrO; \ 
dAG= 0; \ 
dAH= 0 ; \ 
dBH-hs v: \ 
dBG+= v; 

^define Bwdlr3 (addxl, addrO,addr3.dAG,dAH,dBG,dBH} \ 
v=* (short •)addrl; \ 
dBH+= 0; \ 
dBG+= 0; \ 
dAG+= v; \ 
dAH-= v; \ 

•(short •)addr3=dBH; \ 
• ( Short * ) addr 0=dBG ; 

^define BwdE2r3 (addr2.dAG,dAH»dBH) \ 
v=* (short •laddr2; \ 
dBH= V>>1; \ 
dAH^.= v: \ 
dAG+= v; 

#define BwdE3r3 (addr3 , addr2. addrl, dAG,dAH,dBH) \ 
v=*( short ♦)addr3; \ 
.dAH+= 0; \ 
dAG+= 0; \ 
dBH-= v; \ 
dBH-= v; \ 

♦(Short *)addrl=dAH; \ 
•(short MaddrasdAG; \ 
• (short • ) addr3=dBH«l; 

#define Bwdr3 (bascend. inc) \ 
addrO=base; \ 
addr3=addrO-(inc»2) ? \ 
addr2=addr3- (inc»2) ; \ 
addrl=addr2-(inc»2) ; \ 
BurdS0r3 faddrO^dAG.dAH.dBH) ; \ 
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addri+=inc; \ 

BwdS 1 r 3 ( addr 1 , addr 0 . 6AG , dAH . dBH J ; \ 
addr2+=inc; \ 
while(addr2<end) { \ 

Bwd2r3 {addr2,dAG,dAH.dBG.dBK) ; V 

addr3-=:nc; \ 

Bwd3r3 (addr3,adar2. addr l,dAG, dAH. dBG, dBH) ; \ 
addxO-^ = inc; \ 

Bwd0r3 (addrO,dAG,dAH,dBG,dBH) ; \ 
adQri-*- = inc; \ 

Bwdlr3 {addrl,addrO,addr3,dAG.dAH,dBG,dBH) ; \ 
addr2+=inc; \ 

} \ 

BwdE2r3(addr2,dAG,dAH.dBH) ; \ 
addr3+=inc; \ 

BwdE3 r3 { addr3 , addr2 , addr 1 . dAG , dAH , dBH ) ; 

extern void FASTBACKV;ard ( char -daca. long incl. long loopl, long inc2. char •end2) 
extern void HAARBACKWARD(char *daca, long incl, long loopl, long inc2, long loop2) 
extern void HAARTOPBWD ( char "data, long height, long width); 
/* extern void HAAKXTOP3WD(char • data, long area);*/ 

void FasterBac)cward(char 'data, long incl, long endl, long inc2, char *end2) 

t 

register shore v, vs. v3. dAG, dAH, dBG, dBH. inc; 
register char -addrO, •addrl. •addr2, • addr 3, -end; 
char 'base; 

inc = incl; 

f or (base=daca; base<end2 ; base+=:inc2 ) { 
end=base+endl ; 
Bwd{ base. end. inc) ; 

) 

} 

extern void TOPBWD(char *data, char 'dsc, long size_l, long sise^O); 

void TestTopBackwardi short ♦data, inc si2eC2],inc oct.src) 

{ 

int oct. area=si2e(0] •si2e[l)«l; 

short width=size [0] «1; 

char *top=area+ (char *)daca, •lefT:=width+ (char •)daca; 

for (oct=ocr_src-l; oct>0; occ — ) { 

long cinc=2<<occ. cinc4=cinc<<2 , 

rinc=size[0]«occ+-l. rinc4=rinc«2; /* col and row increments in t 

FASTBACKWARD( (char *) data, rinc4 , area- ( rinc<<l ) .cine, left) ; 
FASTBACKWARD( (char * )daca, cinc4 , width- ( cinc«l ) ,rinc,cop) ; 

} 

/* FasterBac)cward( (char *)data. size [0] <<3. area- (sizefO] <<2 ) . 2 . left) ; 
FascerBaclcward( (char * ) data, 8,width-4 . size [0 1 <<1 , top) ; •/ 
TOPBWD([char *) data. (char •) data. size [0] , size fU ) ; 

} 

void TestBackward(data, size. occ_src) 

short *data; 

inc size (2], occ„src; 

{ 

int oct. area=si2e{01*si2e[l]«l; 

shore widch=size [0] <<i; 

char *cop=area* (char *>daca, * lef c=widr.hf 'char •Jdata; 
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for (oct=oct_src-l;ccc>=0;oct--) { 

long cinc=:2«ccc, cinc4=cinc«2 , 

rinc=£i2e(0)«occ-rl, rinc4=rinc«2 ; /• col and row increments in c 



) 



Faster3aclc^'ard( (char *)data. rinc4 , area- trinc«l ), cine, left) ; 
raster3ackv.'ard{ (char * )data , cinc4 , width- (cinc«l) ,rinc,cop) ; 



vQ id Backwards 5 1 1 ( dat a , s i z e , oc t_s r c ) 

short *data; 

int size [2 3, oct_src; 

{ 

int oct, area=size[0] *size{l)«l; 

short width=si2e f 0 J «1 ; 

char *top=area+(char -jdata, nef trwidth* (char 'jdata; 

for foct=oct_5rc-l;oct>0;oct--) { 

long cinc=2<<oct, cinc4 =cinc<<2 , 

rinc=si2e[0]«oct+l, rinc4=rinc«2; /• col and row increments in t 

BACK3511( (char *) data, rinc4 , area- (rinc«l) , cine, left) ; 
^ BACK3511( (char *) data. cinc4, width- (cinc«ll ,rinc,tcp) ; 

f^SiJnr?^^* ^^^^^ *)data<si2e[0]«3,area-(si2e[0]«2),4,left) ; 
BACK3 511H( (char * )data, 8,width-4 , si2eE0]«l. top) ; 
/* TOPBWD((char *)data,(char •)data, size [1] . size[OJ ) ; */ 



1 
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680X0 3511 Backward code 



Coeffs 11 
become 3 



19 5 3 
5X1 



seg 



' kiics • 



macro 
BwdScarcO 

move . w 
move . w 
neg . w 
move . w 
add.w 

endm 



SeaddrO , &dAG . &dAH , &dBH 



r&addrO) , &dAH 

&dAH,&dAG 
&dAG 

&dAH,&dBH 
&dBH,&dBH 



dAH=*( short *)addrO 

dAG=v 

d.\Gr -dAG 

dBH=v 

dBH=v«i 



macro 
BwdStart: 

move . w 

move . w 

asr.w 

add.w 

add.w 

sub.w 

add . w 

add.w 

add.w 

sub.w 

asr.w 

move . w 

endm 



&addrl,fitaddrO,&dAG, &dAH, &dBH 



(Scaddrl) ,dO 

dO,dl 

#l,dl 

dl,&dBH 

do , &dAG 

dO,&dAH 

dO,dO 

dO , &dAG 

dO,dO 

do , &dAH 

#l.&dBH 

tdBH, (&addrO) 



v=» (short *)addrl 

vs=v 

vs=v»l 

dBH+= v»l 

dAG+=v 

dAH-=v 

v«=l 

dAGi- = 2v 

v<< = l 

dAH-=4v 

dBH>>=i 

- ( short * ) addr 0=dBH 



macro 

BwdEven &addr 2 , &dAG , &dAH , &dBG , &dBH 



move . w 


(&addr2) ,dO 


; v=» (short •}addr2 


move . w 


dO , &dBH 


• dBH=v 


move . w 


dO , &dBG 


• dBGrv 


neg . w 


&dBG 


- dBG=-v 


add.w 


dO,&dAH 


■ dAH-f=v 


add.w 


do , &dAG 


dAG-zv 


add.w 


do , dO 


2v 


add.w 


dO , idAH 


dAH+=v 


add.w 


dO,dO 


2v 


add.w 


dO , &dAG 


dAH+=v 


endm 






macro 
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BwdOdd 

move . w 

add . w 
add . w 
add.w 
sub.w 
add . w 
add.w 
add.w 
sub.w 

asr.w 
move . w 
asr.w 
move . w 

endm 



macro 
3wdEnd2 

move . w 

add.w 

add . w 

add.w 

move . w 

add.w 

add.w 

add.w 

endm 



Engineering : KiicsCode : CompPict ; 3ackv/ard: a 
&.addr3 . &addr2 , &addrl. &dAG, &d.-.H, &dBG, &dBH 
{&addr3),d0 ; v=*{ shore •)addr3 



do , &dAH 
do , &dAG 
dC , idBG 
do , &dBH 
do, do 
dO,&dBG 
do, do 
dO , &dBH 

#2,&d.iVH 
&dAH, (taddrl) 
#2,&dAG 
&dAG, (&addr2) 



dAH+rv 
dAG+=v 
dBG+=v 
dBH-=v 
2v 

dBG+=v 
4v 

dBH-=4v 
dAH»=2 

*( Shore *)addrl=dAH 
d\G»=2 

•(short ')addr2=dAG 



&addr2 , &dAG , &dAH , &d3H 

(&addr2),d0 ; v=* (short •)addr2 



dO , &dAH 
do , tdAG 
dO,dO 
dO , &dBH 
do, &dAH 
dO,dO 
d0,&dAG 



=v 
=v 



dAH+ 
dAG+= 
2v 

dBH=2v 

dAH-f=:2v 

4v 

dAG+=4v 



macro 






BwdEnd3 


&addr3 , &addr2 , &addrl . &dAG, idAH , &dBH 


move . w 

add.w 

add.w 

Isl.w 

sub.w 

asr.w 

move . w 

asr .w 

move . w 

asr.w 

move . w 


(&addr3) ,d0 
d0,&dAH 
dO , &dAG 
#3, do 
do . &dBH 
*2.&dAH 
td^H, (&addrl) 
#2,&dAG 

&dAG, (&addr2) ; 

ffl,&dBH 

tdBH, (&addr3) 


; v=* (short *)addr3 
t dAH+=v 
• dAG+=:V 
8v 

dBH-=8v 
dAH»=2 

•(short •)addrl=dAH 
d?iG»=2 

♦(short •)addr2=dAG 
dBH» = l 

*( short *)addr3=dBH 


endm' 






macro 






Bwd 


tbase,&endr&inc 




movea . 1 
move . 1 
asr. 1 
movea . X 
suba. 1 
movea . 1 
suba . 1 
movea . 1 


Scbase^aO 

iincdO 

#2, do 

a0»a3 

dO,a3 

a3,a2 

dO,a2 

a2,al 


; addrO=base 

; dO=inc 

; dO=inc»2 

; addr3=addrO 

; addr3-= (inc»2) 

; addr2=addr3 

; addr2-=(inc»2) 

; addrl=addr2 



Qi try 1-^1 f-^^ >»«i 
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suba . L 






" v«i«J U O • w V 


r?i r\l 




adda 1 


& Inc , a 1 






al a A 

a 1 , a u , Q4 . u J r c ' 




adda . 1 


sine, a2 


?do 


BwdEven 


a2.d4.d5.d6.d7 




adda . 1 


&inc , a3 




BwdOdd 


a3 , a2 , al , d4 , d5 , d6 . d7 




adda . 1 


&inc . aO 




BwdEven 


a0,d6,d7,d4,d5 




auua . X 


&inct al 




BwdOdd 


al» a0,a3,d6,d7,d4,d5 




adda . 1 


£tinc, a2 




cmpa . 1 


a2 , &end 




bgc .s 


@do 




BwdEnd2 


a2 , d4 , d5 , d7 




adda . 1 


&inc ( q3 




BwdEnd3 


a3, a2,al,d4,d5.d7 




endm 




Back3 


511 FUNC 


EXPORT 


PS 


RECORD 


8 


daca 


DS. L 


1 


inci 


DS.L 


1 


endl 


DS.L 


1 


inc2 


DS.L 




end2 


DS. L 




* 


ENDR 






link 


a6,#0 


• 








move . 1 






move a . 1 


PS.daca(a6) ,a5 




move a . 1 


a5,a4 




adda . 1 


PS endl (afil a4 




Bwd 


a5,a4,d3 




adda . 1 


PS.inc2 (a61 ,a5 




cmpa. 1 


PS.end2 ta6) ,a5 




blew 


0do 




movem. 1 


\a t iff u.*4 "KAi f A J "qD 




unlk 


a6 


« 


rzs 




* - - - — 


ENDFUNC 






macro 






BwdScarcvo 


&addrO , &dAG, idAH, &dBK 




move . 1 


(taddrO) ,&dAH ; dAH 




move . 1 


&dAH.&dAG ; dAG 




neg. 1 


StdAG ; dAG 




move . 1 


ficdAH,&dBH ; dBH 




add.l 


&dBH.&dBH ; dfiH 




endm 





addrl - = ( inc»2 ) 

BwdStar c 0 ( addrO , dAG , dAH , dBH ) 

addrl-i- = inc 

BwdSt ar c 1 { addrl , addr 0 , dAG , dAH , dBH ) 
addr2+=inc 

BwdEven ( addr 2 , dAG , dAH , dBG , dBH ) 
addr3+=inc 

BwdOdd ( addr 3 . addr 2 , addr 1 . dAG . dAH . dBG 
addrO+=inc 

BwdEven ( addr 0 . dBG , dBH , dAG , dAH ) 
addrl+ = inc 

BwdOdd ( addrl , addr 0 , addr3 , dBG , dBH , dAG 

addr2+=inc 

addr 2 < end 

while 

BwdEnd2 t addr 2 . dAG , dAH . dBH } 
addrS + s-inc 

BwdEnd3 ( addr 3 , addr2 , addrl , dAG , dAH , dB 



no local variables 
score registers 

inc=incl 

base=data 

end=base 

end* = endl 

Bwd (base, end, inc) 

base+=inc2 

end2>base 

for 

restore registers 
remove locals 
return 



^ (short •)addrO 

r 

-dAG 



macro 

BwdStartvl &addr 1 , &addrO , &dAG , tdAH , &dBH 
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move . i 




» v= { Snort J aaar X 


move . 1 


dO.dl 


; vs=v 


asr. i 


#l,dl 


; vs=v>>l 


add.l 


dl , &dBK 


; dBH+= v»l 


add.l 


do , &dAG 


; dAG+=v 




ao . koAn 


; dAH-=v 


add.l 


do, do 


; v«= 1 


add.l 


dO , &dAG 


; dAG+=2v 


add. 1 


dO,dO 


; v<<=l 


sub. 1 


dO,&dAH 


; dAH-=4v 


asr . 1 


#l,&dBH 


; dBH»=l 


add . w 


&dBH,&dBK 


; shift word back 


as r • w 


#l,&dBH 


; dBH»=l 


move • 1 


&dBH, (&addrO) 


; •(short ♦)addr0=dBH 


endm 






macro 






BwdEvenV 


&addr2 , &dAG . idAH , &d3G # &dBH 


move . 1 


(&addr2),dQ 


; v=* (short •)addr2 


move . 1 


dO , &dBH 


; dBH=v 


move . i 


do , &dBG 


; d3G=v 


neg. 1 


&dBG 


; dBG=-v 


add.l 


do . &dAH 


; dAH+=v 


add.l 


dO,&dAG 


; dAGt-=v 


add.l 


dO.dO 


; 2v 


add.l 


do;&dAH 


; dAH-i-=v 


add.l 


dO,dO 


; 2v 


add.l 


do , &dAG 


; dAH-K=v 


endm 






macro 






BwdOddV 


&addr3 , &addr2 , &addrl , tdAG, tdAH, &dBG , &dBH 


move . 1 


{&addr3).d0 


v=* (short *)addr3 


add. 1 


do , &dAH 


dAii-HSV 


add. 1 


do , &dAG 


dAG-f=v 


add. 1 


d0,&dBG 


dBGf=v 


sub. 1 


d0,idBH 


dBH-=v 


add.l 


dO,dO 


2v 


add.l 


do , &dBG 


dBGf =v 


add.l 


do, do 


4v 


sub, 1 


d0,&dBH ; 


dBH-=4v 


asr .1 


#2,&dAH 


dAH»=2 


isi . w 


#2,&dAH 


shift word back 


asr . w 


#2,&dAH ; 


dAH»=2 


move . 1 


&dAH, (&addrl) 


*( short •)addrl=dAH 


asr.l 


#2 , &dAG 


dAG»=;2 


Isl.w 


#2,&dAG 


shift word back 


asr.w 


#2.&dAG 


dAG»=2 


move . 1 


&dAGr (&addr2) 


*( short •)addr2=dAG 


endm 






macro 






Bwd£nd\'^ 


&addr2 , &dAG , &dAH . &dBH 


move 1 


(52ddr2 > . do 


v-r»f short •)addr2 



I 
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add. 1 


do , kdAH 


• dAH-^=v 


add.i 


dO,idAG 


dAG-P=v 


add. 1 


do, do 


2v 


move . 1 


do , &dBH 


dBH=2v 


add.i 


do . idAK 


dAHi- = 2v 


add. 1 


do, do 


4V 


add.i 


do , tdAG 


dAG+=4v 


endm 







macro 






Bwd£ndV3 


&addr 3 , &addr2 , &addr 1 , idAG , &dAH , ScdBH 


move . i 


(taddr3) ,d0 


• v=- (short •)addr3 


add.i 


dO.idAH 


• dAH-»-=v 


add.i 


do , &dAG 


• dAG-t-=v 


Isi.i 


#3,d0 


8v 


sub. i 


do , idBH 


dBH-=ev 


asr . i 


#2,&dAH 


dAH»=2 


.Isi.w 


#2,idAH 


shifc word back 


asr . w 


#2,&dAH 


dAH»=2 


move . i 


&dAH, (&addrl) 


*( short *)addrl=dAH 


asr. i 


#2.&dAG 


dAG»=2 


Isi.w 


#2 , idAG 


shift word back 


asr .w 


#2,&dAG 


dAG» = 2 


move . i 


&dAG. (&addr2) 


•(Short *)addr2-dAG 


asr . i 


*l.&dBH 


dBH»=i 


isi.w 


*l,&dBH 


shift word back 


asr .w 


#l,&dBH 


dAH>>=2 


add.i 


&dBH,&dBH ; 


dBH«=l 


move . 1 


&dBH, (&addr3) 


* (Short ♦)addr3=dBH 


endm 







macro 






BwdV 


&base , &end, &inc 




movea . i 


&base, aO 


; addrO=base 


move . 1 


&inc, dO 


; dO=inc 


asr . i 


i»2,d0 


; d0 = inc»2 


movea . 1 


aO. a3 


; addr3=addr0 


suba . 1 


d0,a3 


; addr3-= ( inc>>2 ) 


movea. i 


a3 , a2 


; addr2=addr3 


suba . 1 


d0,a2 


: addr2-= ( inc>>2 1 


movea. 1 


a2.ai 


; addrl=addr2 


suba. i 


dO,al 


• addrl-= ( inc>>2 ) 


BwdStartVO 


a0,d4,d5,d7 


; BwdStartO(addrO,dAG,dAH,dBH) 


adda . i 


&xnc, al 


; addrl+=inc 


BwdStartVi 


al,a0,d4.d5,d7 


• EwdStartl(addrl,addrO,dAG,dAH,dBH} 


adda . i 


&inc, a2 


• addr2+=inc 


BwdEvenV 


a2,d4,d5,d6,d7 


• BwdEven(addr2.dAG,dAH,dBG,dBH) 


adda.i 


&inc, a3 


■ addr3■^ = inc 


BwdOddv 


a3,a2,al,d4rd5,dS,d7 


• BwdOdd(addr3,addr2,addri,dAG.dAH,dBG 


adda . i 


&inc. aO 


■ addrO*=inc 


BwdEvenV 


a0.d6.d7,d4.d5 


BwdJEven ( addr 0 , dBG , dBH , dAG . dAH ) 


adda.i 


&inc, al 


addrl+=inc 


BwdOddV 


al.a0,a3,d6,d7,d4,d5 


BwdOdd ( addr i . addr 0 , addr 3 , dBG , dBH , dAG 


adda . 1 


&inc,a2 


addr2+=inc 


cmpa. 1 


a2 , iend 


addr2<end 


bgt. s 


©do 


whiie 


BwdEndV2 


a2,d4,d5,d7 


SwdEnd2 ( addr2 , dAG , dAH , dBH ) 


addjL . : 


iir.c,a3 


addr3-rir.r 
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a3,a2,al,d4.d5,d7 ; BwdEnd3 (addr3 . adcr2 . addrl, dAG. dAH, dB 



endm 
BacJc35llV FUNC 



EXPORT 



?£ 

daca 
incl 
end! 
inc2 
end2 



5do 





O 


DS.L 




DS.L 


I 


DS.L 


1 


DS.L 




DS.L 


1 


ENDR 




link 


a6,#0 


movem. 1 


d4-d7/a3-a5, -(a7) 


move . 1 


PS.incl(a6) ,d3 


movea . 1 


PS.data{a6) ,a5 


movea . 1 


a5,a4 


adda.l 


PS.endl{a6j ,a4 


BwdV 


a5,a4,d3 


adda.l 


PS.inc2(a6) ,a5 


cmpa. 1 


PS.end2(a6) ,a5 


blew 


@do 


movem . 1 


(a7)+,d4-d7/a3-a5 


unlk 


a6 


rts 




ENDFUNC 




macro 
BwdStartH 


&addrR, &A,&C 



no local variables 
score registers 

inc=incl 

base=daca 

end=base 

end+=endl 

Bwd(base,end, inO* 

base+=inc2 

end2>base 

for 

rescore registers 
remove locals 
return 



move. 1 
move . 1 
move . 1 
add. w 
add. w 
add. V/ 
swap 
sub. 1 

endm 



(&addrR)i 

&A,dO 

&A,&C 

5LA,dO 

dO^&A 

&A,dO 

SlA 

dO,&A 



,&A 



; lHlG=»(long *)addrR 



A=1H1G. 
A=1H1G, 
A=1H1G, 
A=1H3G, 
A=1H3G. 
A=3GH1. 
AsAAAA. 



dO=lHlG 
dO=lHlG, 
dO=lH2G, 
dO=lH2G, 
dO=lH5G. 
dO=lH5G, 
dOslHSG, 



C=1H1G 
C=1H1G 
C=1H1G 
C=1H1G 
C=1H1G 
C=1H1G 



macro 
BwdCycleH 

move . 1 
move . 1 
add.l 
move , 1 
add.l 
add.l 
move. 1 
move . w 
move . w 
move . w 
move . w 
swap 
swap 



&addrR, &addrW, &A, &B, &C 



(&addrR)H 

&B,dO 

dO,dO 

dO.dl 

&B,dO 

dO,dl 

&B,d2 

dl,d2 

&B.dl 

dO,&B 

dl.dO 

ScB 

do 



,&B 



1H1G=* ( 
B=1H1G, 
B=1H1G, 
B=1H1G, 
B=1H1G. 
B=1H1G, 
B=1H1G. 
B=1H1G, 
B=1H1G, 
B=1H3G, 
B=1H3G, 
B=3G1H, 
B=3G1H, 



long *)addrR 
dO=lHlG 
dO=2H2G 
dO=2H2G. 
dO=3H3G, 
dO=3H3G, 
dO=3H3G, dl 
dO=3H3G, dl 
dO=3H3G, 
dO=3H3G, 
dO=3HlG, dl 
dO=3HlG, dl 
dO=lG3H. dl= 



dl: 

dl: 
dl: 



dl^ 

dl: 



2H2G 

2H2G 

5H5G 

5H5G. 

5H5G, 

5H1G, 

5H1G, 

5H1G, 

5H1G, 

5H1G, 



d2=lHlG 
d2=lH5G 
d2=lH5G 
dL2=lH5G 
d2=lH5G 
d2=lH5G 
d2=:lH5G 



CI IDCTITl ITC 



wo 94/23385 



PCT/GB94/00677 



- 790 - 



Engineering: KlicsCode: CoinpPict : Back'.vard . a 



oUiJ . ± 


. tec 


; B=3GiH-iH5G 


add.l 




; A-^^1H3G 


add.l 


dl,&A 


; A+=5G1H 


a s r . w 


S2.&A 


; A0>>=2 




move . w 




; C complece 




#2, tA 


; Al>>=2 




move . i 


&C. (&addrW}i- 


; *flong 


* ) addxW=DD 


move . 1 


&A. &C 


; C=A1XX 


endm 








macro 








BwdEndH 


&addrR, iaddrW, tA, &B,&C 




move . 1 


(&addrR)+,dO 


• 1H1G=* 


(long *)addrR 


move . w 


d0,d2 


• d2=lG 




Isl.w 


#2,d2 


d2 = 4G 




neg.w 


d2 


d2=-4G 




swap 


dO 


dO=lGlH 


add.w 


dO, d2 


d2-^^lH 




move . 1 




dO=lGlH, dl=lGlH 


add, w 


dO.dl 


dOrlGlH, dl=lG2H 


add.w 


dl , do 


dO = lG3.H, dl = lG2H 


add . w 


dO,dl 


dO=lG3H, dl=lG5H 


swap 


dl 


dO=lG3H, dl=5HlG 


add.l 


do » &A 


A*=1G3H 


add, 1 


dl,&A 


Ai-xSHlG 


asr . w 




Al»=2 




move . w 




C complece 


asr . 1 


#2.&A 


A0»=2 




move . 1 


&C, (fiaddrW) + 


* { long 


• ) addxW=C 


move . w 


d2.iA 


A=D1D2 




move . 1 


&A, (&addrW»^ 


* ( long 


• 1 addrWsA 


endm 








macro 








BwdH 


&base.&er.d» &inc 






move a . 1 


&base. aO 




' addrR=base 


movea . 1. 


aO r al 




addrW=addrR 


BwdStartH 


a0,d3,d5 




BwdS t ar c ( addr R , A . DD ) 


do BwdCycleH 


a0,al.d3,d4.d5 




BwdCycle ( addrR, addrw, A, B, C ) 


BwdCycleH 


aO, al.d4,d3,d5 




BwdCyc le ( addrR, addrW, B , A. C) 


cmpa . 1 


a 0. tend 




addr2<end 


bgc. s 


@do 




while 


BwdEndH 


a0,al,d3,d4.d5 




BwdEnd ( addrR , addrW , A , B . DD J 


endm 









BacJc3511H 



FUNC 



PS 

data 
incl 
endl 
inc2 
end2 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS,L 

ENDR 



EXPORT 
8 



link 



nn Xo'~al variables 
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movem. 1 


d4-d7/a3-a5. -(a7) 


; score registers 


move . i 
movea . 1 
movea . 1 
adda . 1 
BwdH 
adda. i 
cnrpa . 1 
blew 


PS. incl (a6 ) ;d3 
PS.daca (a5) , a5 
a5, a4 

PS. endl(a6) , a4 
a5,a4,d3 
PS.inc2Ca6),a5 
PS.end2(a6) ,a5 
edo 


; ir*c = incl 

^ p = fi 3 r ;5 

; end=base 

; end+=endl 

; Bwd { base /end, inc ) 

; base-t-=inc2 

; end2>base 

;' tor 


movem. 1 

unlk 

rts 


(a7)+,d4-d7/a3-a5 
a6 


; restore registers 
; remove locals 
; return 


ENDFONC 






END 
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• ® Copyrighc 1993 KLICS Limiced 

- Ail rxghcs reserved. 

- Wriccen by: Adrian Lewis 
** * / 



' Full scill/video Knowles-Lewis Image KlicsEncode System ucilising HVS properci 
' and deita-cree coding 

• Receded and re-rationalised {Stand alone version) 

* / 

"include <FixMath.h> 
#include 'BitsS.h" 
#include 'Klics.h" 
§include 'KlicsHeader.h" 
¥?include 'KlicsEncode .h' 



*t include <Math.h> 

/* If bool true the negate value •/ 

**aefine negif (bool, value) ( (bool) ?- (value) : (value ) ) 
?*define abs (value) negif (value<0, value) 

extern void HaarForward( ) ; 
extern void Daub4Forward( ) ; 

/• Use the bit level file macros {Bits2.h} 
buf _use; •/ 

/* Huffman encode a block */ 
#define Huf fEncLevdev, buf ) \ 

HuffEncode(lev[0] ,buf ) ; \ 

Huff£ncode(lev[l] ,buf ) ; \ 

HuffEncode(lev[2] ,buf ) ; \ 

HuffEncode(lev[3 3 .buf ) ; 

/* Fixed length encode block of integers */ 
"define Int£ncLev{ lev, Ipf.bits .buf ) \ 

IntEncode(lev[0] , Ipf.bits , buf ) ; \ 

Int Encode (levflj , lpf_bits , buf ) ; \ 

Int£ncodetlev[2] . lpf_bit s , buf ) ; \ 

IntEncode(lev(3] , lpf_bits, buf ) ; 

/• Define write a zero */ 
^define TokenO \ 
buf^winc (buf ) ; 

/• Define write a one •/ 
^^define Tokenl \ 

buf_set (buf) ; buf_winc(buf ) ; 

/• Write block for data and update memory -/ 

#define DoXf er(addr, pro, lev. dst, mode, oct, ninode, buf ) \ 

Huf fEncLevdev.buf ) ; \ 

PutData(addr,pro,dst) ; \ 

mode ( oc t ] =oct == 0 ?M_STOP : nmode ; 



' • Funct ion Mame : ent i : e 
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Description: H.261 style quantizer 
Arguments: new. old - image blocks 

pro. lev - returned values 

q - quantizing divisor 
Returns: lev is all zero, quantized data (pro) & level (lev) 



Boolean Quantize(int new(4]. int oldr4J. int pro(4], int levt4]. short q) 
int blk. half_q=(l«q)-i»i. 

for(blk=0;blk<4;blk++) ( 

int dat a=new [blk ) -old [blk] , 
inag^l e ve 1 = ab s ( da t a ) »q ; 

mag level=mag_level>13 5 ? 13 5 : mag_level ; 
lev[blk3=negif idata<0,inag_level) ; 
^ pro [bik] =oldfblk) +negif (data<0, (mag„level«q) * (mag_ievel ! =0?half.q: 0) ) , 

^ return (pro (01 ==0 && proflJ^rO && pro(2]==0 pro[3]==0); 

void QuantizeLPFCint newC4],int pro(4],int levC4]. short q) 
int hlk, half_q=(l«q)-i»i. 

fcr(blk=0;blk<4;hlk++) ( 
int daca=new[blkj , 

niag_level=abs (data) >>q; 

lev[blk)=negif (data<0.mag level): 
^ pro [blk] = ( lev [blkj «q) ^-half.q; 

} 

/* Function Name: GuessQuancize 

* Description: Estimate threshold quantiser value 

* Arguments: new. old - image blocks 
, _ Q - q weighting factor 

Returns: estimated q_const 

float GuessQuantizednt newf4).ini: oldC4]. float q) 

int blk; 

f loat qt_max= 0.0: 

for(blk=0;blk<4;blk++) f 

int i, data=abs(new(blk]-old[blk] ) ; 
float qt; 

for(i=0;data!=0;i++) data»=l- 

if (i>0) i--; 

qt=( ( (3«i) -l)»l)/q; 

^ <Tt_max=qt_max>qt:?qt_raax:qt; 
^ retum(qc_jmax); 

^^ction Name: IntEncode 
• Description: Write a integer to bit file 
^igu^uents: lev - integer to write ncv signed 
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bics - no of bics 

•/ 

void IntEncodefinc lev, int bits.Buf but) 

/' Old version 
inc i; 

for (i=bLCS-l:i>=0; i--) { 

if (lev&{i«i)) buf_sec (buf ) ; 
buf_winc (buf ) ; 

) 

*/ 

/* New version 

inc i, mag=abs ( lev) ; 

Boolean sign=lev<0; 

if (i«bics-i <= mag) mag= ( l«bics-l) - 1; 
if (sign) buf_set (buf } ; 
buf_winc (buf ) ; 

for (i = l<<bits-2; i! =0; i»=l) { 
if (mag&i) buf„sec (buf ) ; 
buf.winc (buf > : 

)*/ 

/» Hardware compatable version; sign mag t lsb->msb) */ 
inc i, magtrabs (lev) ; 

Boolean sign=lev<0; 

if (l<<bits-l <= mag) mag= ( l<<bics-l) -1 ; 
if (sign) buf_sec(buf ) ; 
buf_winc (buf ) ; 

for(i=l;i!=l«faits-l;i«=:l) { 
if (mag&i) buf_set (buf ) ; 
buf _winc (buf ) ; 

) 



/* Function Name: HuffEncodeSA 

Description: Write a Huffman coded integer to bit file 

• Arguments: lev - integer value 

• Returns: no of bits used 

• / 

void Huf f Encode ( int lev, Buf buf) 

/* int level=abs( lev) ; 

if (level>l) buf_set tbuf ) ; 
buf_winc(buf ) ; 

if(level>2 11 level==l) buf.set (buf ) ; 
buf_winc(buf ) ; 
if (level!=0) { 

if (lev<0) buf.set (buf ) ; 

buf_winc(buf ) ; 

if (level>2) ( 
int i ; 

for (i=3; i<level; i+-^) { 
bu£_winc(buf ) ; 

) 

buf_set (buf ) ; 
buf„winc(buf ) ; 



CI inCTlTl ITC CUZZ^ ^-^^ 1^ - 
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) V 

/* New version •/ 

int levei=abs i lev) . i; 

if (level 1=0) buf_set (buf ) ; 
buf_winc(buf ) ; 
if { level !=0) ( 

if (lev<0) buf_SGL(buf ) ; . 
buf_winc{buf ) ; 
if (level<81 { 

while (1< level — ) 

buf_winc{buf ) ; 
buf_set (buf) ; 
buf_winc(buf ) ; 
) else { 

for (i=0;i<7; i++) 

buf_winc(buf ) ; 
level-=8; 

for (i=l«6; i:=0;i»=l) ( 

if (levelti) buf.sec (buf ) ; 
buf_winc(buf ) ? 

) 

} 

} 

) 

/• Function Name: KlicsEChannel 

* Description: Encode a channel of image 

* Arguments: src - source channel memory 

dst - destination memory (and old for videos) 

* octs, size - octaves of decon?5osition and image dimensions 
• normals - HVS v;eighted normals 

*^ lpf„bits - no of bits for LPF integer {image coding only) 

void KlicsEacY( short *src, short *dst,inc octs^int size[2],int thresh[5], int co: 

int oct. mask, x, y, sub, tmp, step=2«octd, blk[4], mode [4], nz, no, base 
mt addrC4]. new[4), oldr4], pro[4], lev[4], zero[4] =(0, 0. 0, 0) ; 

Boolean nzflag, noflag,. origin; 

int bitmask=-l<<kle->seqh.precision-kle->frmti.quantizer[0]-l; 
Buf buf =&kle->buf ; 

f or (y=0;y<size(l] ;yt-=step) 

fortx=0;x<size[0) ;x+=step) 

for ( sub=0 ; sub<4 ; sub-i-h ) ( 

mode [oct=octs-l] =base_mode; 

if (subssO) mode[oct=octs-l] i= M_LPF; 

mask=2<<oct ; 

do ( 

GetAddr(addr,x,y, subject, size, mask) ; 
switch(mode[oct] ) { 
case M_VOID: 

GetData(addr,old,dst) ; 

if (BlkZero(old) ) mode[oct]=M_STOP; 

else { DoZero (addr, dst, mode, oct) ; ) 

break; 
case M_SENDIK_STILL: 

GetData(addr,new,srcl ? 

nz=Decide (new) ; nzf lag=nz<=thresh [octs-oct ] ; 

if (nzflag II Quantize (new, zero, pro. lev, kle->frmh. quantizer (octs-oct ] ) 
GetDat a ( addr, old, dst ) ; 
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if (Blk2ero(old) ) { 
To ken 0 ; 

mode [oct ) =M_STO? ; 
} else ( 

Token 1; Token 1 ; 
Do2ero(addr,dsc»mode,occ) ; 

) 

) else ( 

Tokenl; TokenO; 

DoXfer (addr,pro. lev, dst .mode, oct ,M_SENDIM_STILL,buf ) ; 

) 

break; 
case M.SEND: 

GecDai:a(addr,new, src) ; 
GecDacafaddr, old, dsc) ; 

nz=Decide(new) ; n2clag=n2<=chresh[occs-oct.] ; 
if {Blk2ero(old) ) { 

if (nzflag It Quantize (new, zero, pro. lev, kle->frmh, quantizer [occs-o 
TokenO ; 

mode [oct ] =M_STO?; 
) else { 

Tokenl; TokenO; 

DoXfer (addr,pro, lev, dst, mode. oct,M_SENDIM STILL, buf) ; 

> 

} else ( 

int oz=Decide(old) , no=DecideDelta(new, old) ; 

Boolean mocion=(nz'i-oz)»oct <= no; /* motion detection •/ 

no=DecideDelta(new, old) ; nof lag=no>:=compare f oct s -oct] ; 
origin=nz<=no; 

if ((inoflag II motion) inrflag) { /* was inoflag && inzfl 

if (Quantize (new, origin? zero: old, pro, lev, kle->frmh. quantizer [o 

Tokenl; Tokenl; TokenO; 

DoZerotaddr.dst, mode, oct) ; 
} else ( 

if (origin) { 

Tokenl; TokenO; 

DoXf er ( addr , pro, lev . dst , mode , oct , M_SEND 1 M^STILL, buf ) ; 
) else ( 

Tokenl; Tokenl; Tokenl; 

DoXferi addr, pro, lev, dst , node, oct , M_SEND. buf ) ; 

) 

) 

) else { 

if ((motion II origin) && nzflag) { /• was origin nzfla 
Tokenl; Tokenl; TokenO; 
Dozero ( addr , dst , mode . oct ) ; 
) else ( 
TokenO; 

mode [oct J =M_STOP; 

) 

) 

) 

break; 
case M.STILL: 

GetDaca(addr,new, src) ; 

n2=Decide(new) ; nzf lag=nz<=threshf octs-oct ] ; 

if (nzflag II Quantize (new, zero, pro, lev, kle->frmh. quantizer [octs-oct ] ) 
TokenO ; 

mode [oct] =M STOP; 
} else ( 
Tokenl ; 

DoXf er (addr , pro, lev, dst . .-node, ctt . M.^TTLL. buf' ; 
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} 

break; 
case M_L?FIM_STILL: 

GecData { addr , new, src ) ; 

Ouarn:i2eLPF(new,proaev.kle->fnnh.Quancizerf01 ) • 
VerifyDaca(lev[0] ^bitmask^cnpj.- 
VerifyDatadevtH ,bitmask,crTp) ; 
VerifyDaca(lev(21 ,bicinask,tinp) ; 
VerifyData(levf3I ,bitmask,cirp) ; 

mode [oct ] =M.QUIT; 
break ; 
case M_LPF I M_SEND r 

GetDaca(addr,new, src) ; 
GetData (addr, old, dsc) ; 

no=DecideDelta(new,old) ; nof lag=no<=cornpare[occs-oct i ; 
if (noflag) { 

TokenO ; 

) else ( 

Tokenl; 

Quantize (new, old, pro, lev, kle->f rmh. quantizer (0 ] ) ; 
Huf fEncLev(lev,buf ) ; 
^ PutData(addr.pro.dst ) ; 

mode [oct ] =M_0UIT; 
break; 

) ■ 

switch (mode [oct] ) ( 

case M_STOP: "J 

St opcounters (mode , oct , mask, blk, x, y , oct s ) ; 

break; 
case M_QUIT: 

break; 
default: 

DownCoxinters (mode, oct , mask, blk) ; 
break; 

) 

} whi le (mode [ oct ] ! =M_QaiT ) ; 

) 



void 
( 



KlicsEncUV( short 'srcshort *dst,int octs,int sizef2],int thresh [5 ] , int c 

int aS^r4?^*';.^f.V' ^J;,^^' ^"^P' step=4«octs, blk[4], mode(41, nz, no 
Roni«=^ new[4], old 4], pro(4], lev[4], zero (4 ] ={ 0, 0, 0 , 0 ) ; 

Booiean nzflag, noflag, origin; 

sSf ^^^^^^=:^<<]^^e->seqh.precision-kle->fr^ 

for(y=0;Y<size[l] ;Y*=step) 

for (X=0;X<size[03 ;X+=step) 

for (y=Y;y<sizeCl] && y<Y+step;y+=step»l ) 

for (x=X;x<size[0] x<X+step;x+=step»l ) 

for {sub=0;sub<4;sub++) { 

mode Coct=oct3-l) =base_mode; 

if (sub==0) modeCoct=octs-l] i= m_lpF; 

mask=2«oct; 

do ( 

Get Addr (addr , X, y, sub, oct , size, mask) ; 
switch(mode(oct] ) { 
case M_VOID: 

GetData (addr, old, dst ) ; 
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if (Bi)c2ero(old) ) mode iocc ) =M_STOP; 
else { DcZero(addr,dsc,mcde,occ; ; ) 
break; 
case M_SENDIM_STILL: 

Get:Daca( addr.new, src) ; 

n2=Decide(new) ; nzf iag=nz<=chresh [occs-occ 1 ; 

if (nzflag It Quantize (new, zero, pro, lev, }cle->fr:nh. quancizer [octs-oct ) ) 
GetDaca{addr,old,dsc) ; 
i£ {BlkZero(old) ) { 
TokenO ; 

mode[oct]=M STOP; 
> else { 

To ken 1; To ken 1; 

Do Zero (addr, dsc» mode, oct ) ; 

} 

) else { 

Tokenl; TokenO; 
^ DoXfer(addr,pro, lev. dst,mode, occ .M_SENDIM_STILL. buf ) ; 

break; 
case M.SEND: 

GetData{addr,new. src) ; 
GetData{addr,old,dsc) ; 

n2=Decide{new) ; nzf lag=nz<=chresh [octs-oct 1 ; 
if (BlkZeroiold) ) { 

if (nzflag It Quantize (new, zero , pro, lev, kle->frn\h. quantizer [octs-o 
TokenO ; 

modeCoct]=M STOP; 
} else { 

Tokenl ; TokenO ; 
^ DoXfer (addr,pro, lev, dst ,mode , occ . M_SEND I M^STXLL, buf ) ; 

) else ( 

int oz=Decide(old) , no=DecideDeltainew, old) ; 

Boolean mocion= (nz+oz ) »oct <= no; /* motion detection */ 

no=DecideDeltarnew,old) ; noflag=no<=cornpare [octs-oct ) ; 
origin=nz<=no; 

if {{Inoflag I I motion) && inzflag) { /• was !no£lag && inzfl 
if {Quar)cize{new,origin?zero:old,Dro, lev, kle->fnnh. quantizer [o 

Tokenl; Tokenl; TokenO; 

DoZero ( addr , dst , mode , occ ) ; 
) else ( 

if (origin) { 

Token!; TokenO; 

DoX f er addr . pr o , 1 e v , ds t . mode , oc t . M_ SEND I M_ST I LL , bu f ) ; 
} else ( 

Tokenl; Tokenl; Tokenl; 

DoXf e r ( addr . pr o , 1 e v , ds c , mode . oc t , M.SEND , bu f ) ; 

) 

) 

) else { 

if ((motion II origin) nzflag) { /* was origin nzf la- 
Tokenl; Tokenl; TokenO; 
DoZero ( addr. dst, mode, oct) ; 
} else ( 
TokenO ; 

mode [oct) =M_STOP; 

) 

} 

} 

break; 
case M_STILL: 
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GetDaca(addr,new, src) ; 

n2=Decide (new) ; nzf lag=nz<=chresh(occs-ocr ] ; 

if (nzfiag II Quantize (new, zero » pro, lev, Jcle->frmh. quantizer [occs-occ ) J 
TokenO ; 

mode [oct ] =M_STOP; 
} else ( 
Tokenl ; 

DoXfer (addr,pro, lev, ds c, mode, oct,M_ST ILL, buf) ; 

} 

break; 
case M_LPFIM.STILL: 

GetDaca{addr,new. src) ; 

QuancizeLPF (new,pro, lev, kle->f rmh. quantizer [0] ) ; 
VerifyData(lev(0] , bitmask, tmp) ; 
VerifyData devil] , bitmask* tmp) ; 
VerifyData(lev(2] ,bitmask, tmp) ; 
VerifyData C lev[3] , bitmask, tmp) ; 

IntEncLevdev, kle->seqh.precision-kle->frmh. quantizer [0] , buf ) ; 
PutData{addr,pro,dst) ; 
mode [Oct) =M_QUIT ; 
break; 
case M_LPF|M_SEND; 

GecData(addr,new, src) ; 
GetData ( addr , old, dst ) ; 

no=DecideDelta (new, old) ; nof lag=no<=comparerocts-oct ] ; 
if (noflag) { 

TokenO ; 
} else ( 

Tokenl ; 

Quantize (new, old, pro, lev, kle->f rmh. quantizer [0 ] ) : 
Huf f EncLev ( lev , buf ) ; 
PutData (addr, pro, dst ) ; 

} 

mode [oct ] =M_QUIT; 
breaJc; 

) 

switch (mode [oct ] ) { 
case M.STOP: 

StopCounners (mode, oct , mask, blk,x,y, octs) : 

break; 
case M_QUIT: 

break; - 
default : 

DownCounters (mode , occ , mask , blk) ; 
break; 

} 

> while ( mode C oct 1 !=M_QUIT) ; 
} 

> 

/* index to quant and vice versa */ 

#define i2q(i) (float) i*HlSTO_DELTA/ ( float ) HISTO 

ffdefine q2i(q) Fix2Long (X2Fix (q* ( float )HISTO/HISTO.DELTA) ) 



/* Function Name: LookAhead 

* Description: Examine base of tree to calculate new quantizer value 

* Argximents: src - source channel memory 

* dst - destination memory (and old for videos) 

* octs, size - octaves of decomposition and image dimensions 
norms - base HVS weighted normals 

* Returns : calculates new qfuant 
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void LookAhead{ shore *src, shore *dsc, float norms {5] [5 1 » Klics£ kle) 
{ 

inc X. y, sub, index, size [ 2 ] = (kle- >seqh. seCiUence_si2e [0 ) , Jcle->seqh. sequen 

threshfHISTO] , quacc (HISTO) , cargec; 
int new(4), old(41, addr(43. zero( 4 ) = ( 0, 0 , 0 , 0 ) ; 
f loac quant:; 

for ( index=0 ; index<HISTO ; index++ ) { 
thrash (index 1=0; 
quacc ( index] =0; 

) 

tor (y=0;y<size[l) ;yi-=2<<occs ) 
for (x=0;x<si2e{0) ;x+ = 2«occs) 
for tsub=l; sXLb<4; sub-t-+) { 

float q_thresh; 

int nz. no, oz, blJc; 

Boolean ozflag, origin, motion; 

GetAddr (addr, x,y, sub, octs-1 , size, l<<octs) ; 

GetDaca(addr,new. src) ; 

GecData( addr, old, dsc) ; 

nz=Decide (new) ; 

oz=Decide (old) ; 

no=DecideDelta{new, old) ; 

ozflag=kle->encd. intra li BlkZero(old) ; 

origin=n2<=no ; 

motions (nz+oz } >>octs <= no; 

q_thresh= (float ) nz/D&cideDouble (norms [1] 1 1] 1 ; 
if (ozf lag I 1 origin) { 

float qtsGuessQuantize (new, zero, norms [1] [0] ) ; 

q_thresh=q_thresh<qt ?q_thresh : qt ; 
} else ( 

float qt=GuessQuantize (new, old,nonns [1] [0] ) ; 

q_thr esh=q_thresh<qt ?a-thresh : qt ; 
if ('motion) ( 

qt= (float ) no/ DecideDoublet norms [1] [2]) ; 

q_thresh=q.thresh<qt ?q_thresh : qt ; 

} 

) 

index=q2i (q_thresh) ; 

index= index< 0 ?0 : index>HISTO- 1 ?HISTO- 1 : index ; 
thresh [ index J -f*; 

) 

for ( index=HISTO-l: index>=0; index — ) 

quact [ index ] = thresh ( index] * index+ ( index==HISTO- 1 ?0 : quact { index* 1 1 ) ; 

/♦ buffer must be greater than bfp_in after this frame */ 
/* buffer must be less than bur f_size+bf p_in •/ 

target=kle->encd,bpf_oufkle->encd.prevquact/kle->encd.prevbytes; /• previous 
index=l; 

while ( index<HlSTO && quact [index] /index> target ) index+*; 
quant =i2q( index) ; 

kle->encd. tmp_guant= (kle->encd. tmp_quant*quant ) / 2 . 0; 

kle->encd.tmp_quant = i2q( ( index=q2i (kle->encd. tmp.quant) ) ) ; /* forward and reve 
kle->encd.prevquact=quact ( index) / (index==0?l: index) ; 



Function Name: BaseNormals 
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* Description: Calculates base HVS weighted normals 

* Arguments: norms - storage for normals 

* Returns: weighted normals 



void BaseNormais (float norms [5] [3] , KiicsE kle) 

float base_norm[3} = (1.0.kle->encd. thresh, kle->encd. compare}; ' 
mc norm, oct; 

for ( oct=0 ; oct <5 ; oct++ ) 

for {norm=0;norm<3 ;norm+-^) 
^ norms [oct ] [norm] =base_norm[norm] *kle->encd. base [oct ] * ( float ) ( l«kl 

/* Function Name: Normals 

* Description: Calculates HVS weighted normals 0 quanc 

• Arguments: norms - storage for normals 
*^ Returns: weighted normals and LPF bits 

void NonTials( float base_norms[5] [3] , int thresh[5] , int coiiparefS] ,KlicsE kle) 



int oct, i, norm; 

for(oct=0;oct<=kle->sech.octaves[0] ;oct + -f) ( 

norm=Fix2Lcng(X2Fix(base_norms[occI [0] •kle->encd. tmp^quant ) ) ; 

norm=norm<l ? 1 : norm; 

for (i=0; 0 ! = (nonn&-3) ; i-i-+) 

norm=norm>>l; 
switch (norm) { 
case 1: 

kle->frmh, quantizer [occ J =i ; 
break; 
case 2: 

kle->f rmh, quantizer [oct 3= i+1; 

break ; 
case 3 : 
case 4 : 

^ kle->frmh. quantizer [oct] =i+2; 

thresh [oct ]=Fix2Long(X2Fix(DecideDouble(base_norm5 [oct] [1] *kle->encd. tmp_q 
^ compare [oct ) =Fix2Long (X2Fix{DecideDouble (base.norms [oct ] [2] ♦kle->encd. tmp_. 

kle->f rmh.quantizer[03=kle->frmh.quanti2er[0]<3?3:kle->frmh.quantizer [0] ; 
/* minimum 4 bits of quant for Ipf due tc dynamic range problems •/ 

Boolean KlicsFlags (KlicsE kle) 

{ 

Boolean skip=false; 

kle- >encd. buff er-skle->encd.bpf in; 
kle->frmh.f lags=0; *" 
if (kle->encd.buf fer<0) 

kle->encd.buffer=0; 
if (kle->encd. intra) 

kle->f rmh. flags 1= KFH_INTRA; 

else 

if (skip=kle->encd.buf_sw && kle->encd.buf f er>=kle->encd.buf_size) 
kle->f rmh. flags |= KFH.SKIP; 
return (skip) ; 



wo 94/23385 



PCT/GB94/00677 



- 802 - 

Engineering : KiicsCoce : CompPic- : KiicsEnc . c 
/' Funccicn Name: KlicsEncoce 
*y " ^^^^sformed des::inacion memory {and old for videos) 

long KlicsEncodec short •src(3], short *dstf3). KiicsE kle) 
float base_norms[5) f 3] ; 
Rnf K^f^f^ thresh [5], compare(5]; 

buf_winit{buf ) 

if (KlicsFlagsCkle) ) 

kle->frmh. lengch=0; 
else { 



) 



tor(channel=0;channei<kle->seqh-channels;channel*-) { 

mt si2e(2) = (kle->seqh.sequence.sizef0]»(channel ==0?0:kle->seqh s- 

Xle->seqh. sequence.size C 1 ) » ( channel ==0?0 : kle->seoh su. 
area=si2efO)-si2e[l]. occs=kle->seqh. octaves fchannel==0?0: 

switch {kle->seqh .wavelet ) f 
case WT_Haar: 

HaarForward(src( channel] . size.octs) • 
break; 

case WT_Daub4 : 

Daub4Forwardt src [channel] , size. octs) ; 
break; 

) 

} 

BaseNorTnals(base_nor7Tis,kle) ; 

If <kle->encd.auto_q && ■ kle->encd. intra) 

^^^^LookAhead(src[0],d3ttOj.base_norn-.3,kle); 

M^^^^^Tw®"*^^* *^"^-^^''^=*^^^">®^cd. quant ; 
Normals (base^norms, thresh, compare, kle) ; 

for(channel = 0;channel<kle-.seqh.channels;channel*.) ( 

saze£2] = fkle->seqh. sequence.size [0]»(channel==0?0:kle->seqh s- 

ocrJ^lll^lT^ltu^^'^^'^^^^^ saj 
octs=]cle->seqh.octaves[channel==0?0:l] ; 

if (kle->encd. intra) 

KL2ER0(dst [channel] , sizeEOJ *size[l] ) ; 

If (charuiel==Oi KlicsEr.cV I src [cha-mel] ,dst (channel] octs size thre^^h r- 
^ else KUcsEncaV(src(channel].dst(chanAei],oct3!^Le:ch^^^^^ 
buf_flush(buf ) ; 

kle->frmh. length=buf.sxze (buf ) ; 
kle->encd.buffer+=kle->frmh. length; 
If (lkle->encd.intra) 

kle->encd.prevbytes=kle->frmh. length; 



return (kle->frTnh. length) ; 
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© Copyright 1993 KLICS Limiced 
All righcs reserved. 

Written by: Adrian Lewis 



Sequence and frame headers for Klics-Encoded files 
High byte first 



typedef struct { 
unsigned short 
unsigned char 

) KiicsHeader; 



description^length; /• Fixed 
version_nujnber [2] ; /♦ Fixed 



cypedef struct { 

KiicsHeader head; 
unsigned short sequence_size [3 J ; 



unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
KlicsSeqHeader; 



channels; 
sub.sairple[2] ; 
wavelet; 
precision; 
octaves [2] ; 
reserved 1*3 J ; 



typedef struct { 

KiicsHeader head 

unsigned long length; 

unsigned long 

unsigned char 

unsigned char 

imsigned short 
} KlicsFrameHeader; 



f raine_nuiTiber ; 
flags; 

quantizer [5] ; 
reserved; 



/• Fixed 
/• Source 
/* Source 
/• Source 
/• Source 
/• Source 
/* Source 
/* Fixed 



/* Fixed 
/• Calc 
/* Calc 
/• Calc 
/* Calc 
/* Fixed 



#define KFH_SKIP 0x1 
# define KFH.INTRA 0x2 



- Size of this or parent struc 

- Version and revision numbers 



Size and version of this str 
Luminance dimensions and num 
Number- of channels: 3 - YIT-/, 
UV sub-sair¥>ling in X and Y d 
Wavelet used: 0 - Hear, 1 - 
Bit precision for transform 
Number of octaves Y/UV (raaxii 
Reserved for futiire use •/ 



Size and version of this str 
Length of frame data (bytes) 
Frame number intended for se* 
Bitfield flags: 0 - frame sJc 
Quantiser shift values (octav 
Rejserved for future use •/ 



Implementation notes : 

QuickTime Must have KlicsFrameHeader . length set to a valid nuirlDer 
sun Must have KlicsSeqHeader in data stream 

Possible developments: 

KlicsFrameHeader . quantizer 

Currently contains shift rather than stap-siz« 

Difterent values for UV and GH.HG^GG sub-band5 are not currently suppo 
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KXicsEncode resource file 



* include 'Types. r" 
?inciude •MPWTypes.r" 
include ' ImageCodec . r • 



Klics Con?3ressor included inco the applications resource file here 



#define klicsCodecFormatNazne 'Klics' 
#define klicsCodecFonnatType 'klic 



, locked) { 



name of che codec TYPE ( 
version •/ 
revision •/ 

who made this codec */ 



da 



Drcba^5rhp''rrooi^f^^ capabilities of che codec. Thsre will 

anf ^pLiLcief^ ^'^^ ^^^^ — " perfonnance 

V 

resource 'cdci' (129, -Klics Codeclnfo 
klicsCodecFormatNaine, 
1, 
1, 

•klic , 
0, 

^nH!^T''^°n°^^Ko!?°'^!''^''^^^^^^'^°^^^^^£^ /* depth and etc suppo 

codeclnfoDepth24lcodecInfoSequenceSensitive, which datftor^ts do I7^n 

100 ! 
0, 
0, 
0. 
0, 
32, 
32, 

0, 
0 



/* conpress accuracy (0-255) < 

/* decompress accuracy (0-255) 

/♦ millisecs to compress 320x2 

/* millisecs to decoirpress 320. 

/" con53re:3sion level (0-255) ( 



minimum height 
minimum width ^ 



) 



resource 'thng- (128, 'Klics Compressor- . locked) { 
compressorComponentType , 
kl icsCodecFormatType , 
•klic\ 

codecInfoDoe332 IcodecInfoDoesS icodeclnfoDoesTemporal, 

• cdec * , 

128, 

•STR 

128, 

' STR ■ , 

129, 

' ICON ' , 

128 

); 



resource 'STR • (128) ( 
'Klics Conroress" 
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); 

resource ' STR • (129) f 

^_ -wavelet transform & multiresolution tree based coding scheme' 
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KlicsDecode resource file 



# inc lude " Types . r " 
'include "MPWTypes . r- 
Pine lude " ImageCodec . r ■ 



*^ Kiics Compressor included into the applications resource file here 

^define klicsCodecFormacName 'Kiics* 
#define kiicsCodecFormacType 'klic 



This structure defines the capabilities of the codec. There will 

probably be a cool for creating this resource, which measures the performance 

and capabilities of your codec. 



resource *cdci' (129, 'Kiics Codeclnfo- , locked) { 
kl icsCodecFormacName , 



/• name of the codec TYPE ( da 
/* version '/ 
/* revision •/ 
/^^ who made this codec •/ 
coaeclnfoDoes32 IcodeclnfoDoesl6 IccdeclnfoDoesS Icodecinf oDoesTemporal Icodeclnfo 



' klic 



codecInfoDepth24 I codecinf oSequenceSensitive, 

100, 

100, 

0, 

C, 

0, 

0, 

32, 

32 , 

C, 



which data formats do we un- 
compress accuracy (0-2551 ( 
decompres s accuracy (0-255) 
millisecs to compress 320x2 
millisecs to decompress 320 
compression level (0-255) ( 



mini:num height 
minimum width * 



V 



}; 



resource 'thng* (130, "Kiics Decompressor- , locked) { 
decompressorConponentType, 
klicsCodecFormatType, 
•klic* , 

codecinf oDoes32 I codec InfoDoes 16 1 codecinf oDoesS ! codecinf oDoesTemporal I codecinf o 

' cdec ' . 

128, 

' STR ' , 

130. 

' STR ' , 

131, 

' ICON ' , 

130 

); 



resource "STR ' '13 0) f 
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CLAIMS 

WE CLAIM: 

1. A method of transforming a sequence of input 
digital data values into a first sequence of transformed 
5 digital data values and of inverse transforming a second 
sequence of transformed digital data values into a sequence 
of output digital data values, said sequence of input 
digital data values comprising a boundary subsequence and a 
non-boundary subsequence, comprising the steps of : 

running a number of said input digital data 
values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
digital filter and through a high pass boundary 
forward transform perfect reconstruction digital 
15 filter to produce a first subsequence of said first 

sequence of transformed digital data values, said 
first subsequence of said first sequence of 
transformed digital data values comprising interleaved 
low and high frequency transformed digital data 
20 values; 

running a number of said input digital data 
values of said non-boundary subsequence through a low 
pass non-boundary forward transform perfect 
reconstruction digital filter and also through a high 

25 pass non-boundary forward transform perfect 

reconstruction digital filter to produce a second 
subsequence of said first sequence of transformed 
digital data values, said second subsequence of said 
first sequence of transformed digital data values 

30 comprising interleaved low and high frequency 

transformed digital data values, said low pass 
boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
than said low pass, non-boundary forward transform 

35 perfect reconstruction digital filter, said high pass 

boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 



10 



15 
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than said high pass non-boundary forward transform 
perfect reconstruction digital filters- 
converting said first sequence of transformed 
digital data values into said second sequence of 
transformed digital data values, said second sequence 
of transformed digital data values comprising a first 
subsequence of said second sequence of transformed 
digital data values and a second subsequence of said 
second sequence of transformed digital data values; 

running a number of said first subsequence of 
said second sequence of transformed digital data 
values through an interleaved boundary inverse 
transform perfect reconstruction digital filter to 
produce at least one output digital data valued- 
running a number of said second subsequence of 
said second sequence of transformed digital data 
values through a first interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter to produce output digital data values; and 

running a number of said second subsequence of 
transformed digital data values through a second 
interleaved non-boundary inverse transform perfect 
reconstruction digital filter to produce output 
digital data values, said output digital data values 
produced by said interleaved boundary inverse 
transform perfect reconstruction digital filter, said 
first interleaved non-boundary inverse transform 
perfect reconstruction digital filter, and said second 
interleaved non-boundary inverse transform perfect 
reconstruction digital filter comprising a subsequence 
of said output digital data values of said sequence of 
output digital data values. 

2. The method of Claim 1, wherein said low pass 
boundary forward transform perfect reconstruction digital 
35 filter has X coefficients and wherein said low pass non- 
bcundary forward transform perfect reconstruction digital 



20 
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filter has Y coefficients, Y being greater than X, said X 
coefficients of said low pass boundary forward transform 
perfect reconstruction digital filter being chosen so that 
said low pass boundary forward transform perfect 
5 reconstruction digital filter outputs a transformed digital 
data value Hq when the low pass boundary forward perfect 
transform reconstruction digital filter operates on input 
digital data values IDq-IDx.i adjacent said boundary, said 
transformed digital data value Hq being substantially equal 

10 to what the output of the low pass non-boundary forward 
transform perfect reconstruction digital filter would be 
were the low pass non-boundary forward perfect 
reconstruction digital filter to operate on IDq-IDx-i as 
well as Y-X additional input digital data values outside 

15 said boundary, said additional input digital data values 
having preselected values. 

3. The method of Claim 2, wherein Y-X=l, wherein 
there is one additional input digital data value ID.^, and 
wherein ID.^ is preselected to be substantially equal to 

20 IDq. 

4. The method of Claim 2, wherein Y-X=l, wherein 
there is one additional input digital data value ID.^, and 
wherein ID.^ is preselected to be substantially equal to 
zero . 

25 5. The method of Claim 1, wherein said sequence of 

input digital data values is a sequence of digital data 
values associated with pixels of either a row or a column 
of a two dimensional image, said boundary of said seouence 
of input digital data values corresponding with either a 

30 start or an end of said row or said column. 

6. The method of Claim l, wherein said sequence of 
input digital data values is a sequence of digital data 
values associated with an audio signal. 



I 
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7. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
digital filters are forward transform quasi-perfect 
reconstruction filters which have coefficients which 

5 approximate the coefficients of true forward transform 
perfect reconstruction filters. 

8. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
digital filters are both four coefficient quasi-Daubechies 

10 filters the coefficients of which approximate the 

coefficients of true four coefficient Daubechies filters. 

9 . The method of Claim 8 , wherein one of said four 
coefficient quasi-Daubechies filters has the coefficients 
11/32, 19/32, 5/32 and 3/32 independent of sign. 

■"■^ The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient quasi-Daubechies filter H of 
the form: 

2 0 n being a positive integer, IDq-ID^ being input digital data 
values, m being a positive integer, IDq being the first 
input digital data value in said sequence of input digital ' 
data values, and wherein said low pass boundary forward 
transform perfect reconstruction digital filter is a three 

25 coefficient digital filter of the form: 

Hq = aID_i + bIDo + cIDi - dIDj 

ID_i being a predetermined input digital data value outside 
said boundary and having a preselected value. 



11. The method of Claim 10, wherein said high pass 
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non-boundary forward transform perfect reconstruction 
digital filter is a four coefficient guasi-Daubechies 
filter of the form: 

G„ = dID2„.i + CID2„ - bID2„^i + ^102^^2 

5 n being a positive integer, and wherein said high pass 
boundary forward transform perfect reconstruction digital 
filter is a three coefficient digital filter of the form: 

Go = dID_i + cIDq - bIDi + alDj 
dID_2 having. a preselected value. 

10 12. The method of Claim 11, wherein: a+b+c-dis 

substantially equal to 1, wherein a-b+c+dis 
substantially equal to 0, and wherein ac - bd is 
substantially equal to zero. 

13. The method of Claim 12, wherein: a=ll/32, 
15 b=19/32, c=5/32 and d=3/32. 

14. The method of Claim 11, wherein said interleaved 
boundary inverse transform perfect reconstruction digital 
filter is a two coefficient digital filter of the form: 

ODq = 4(b-a)Ho + 4(c-d)Go 

20 wherein ODq is an output digital data value of 

said sequence of output digital data values, wherein Gq is 
the output of said high pass boundary forward transform 
perfect reconstruction digital filter when the high pass 
boundary forward transform perfect reconstruction digital 

25 filter operates on input digital data values IDq, ID^ and 
IDs adjacent said boundary, and wherein Hq is the output of 
said low pass boundary forward transform perfect 
reconstruction digital filter when the low pass boundary 
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forward transform perfect reconstruction digital filter 
operates on input digital data values IDq, ID^ and IDj 
adjacent said boundary. 

15. The method of Claim 14, wherein one of said first 
5 and second interleaved non-boundary inverse transform 
perfect reconstruction digital filters is of the form: 

Dzn^l = 2(cHn - bG„ + aH„+i + dG„+i) 

n being a non-negative integer, and wherein the other of 
said first and second interleaved non-boundary inverse 
10 perfect reconstruction digital filters is of the form: 

D2„+2 = 2(-dHn + aG^ + bH^+i + cG„^.i) 

n being a non-negative integer, wherein H^, G^, E^^^ and G^^^ 
comprise a subsequence of said second sequence of 
transformed digital data values. 

15 16. The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient quasi-Daubechies filter having 
the coefficients: 11/32, 19/32, 5/32 and -3/32, and wherein 
said high pass non-boundary forward transform perfect 

20 reconstruction digital filter is a four coefficient quasi- 
Daubechies filter having the coefficients: 3/32, 5/32, - 
19/32 and 11/32. 



17. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
25 digital filters are chosen from the group consisting of: 
true six coefficient Daubechies filters and quasi- 
Daubechies filters, the coefficients of the quasi- 
Daubechies filters approximating the coefficients of true 
six coefficient Daubechies filters. 
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18. The method of Claim 1, further comprising the 
steps of: 

encoding said first sequence of transformed 
digital data values into an encoded sequence; and 

decoding said encoded sequence of digital data 
values into said second sequence of transformed 
digital data values and supplying said second sequence 
of transformed digital data values to said interleaved 
boundary inverse transform perfect reconstruction 
digital filter, said first interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter, and said second interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter. 



"^^^ method of Claim 18, further comprising the 

step of: 

quantizing each of said digital data values in 
said first sequence of transformed values before said 
encoding step. 

2 0 20. The method of claim l, wherein each of said input 

digital data values of said sequence of input digital data 
values is stored in a separate memory location, and wherein 
some of said memory locations are overwritten in a sequence 
with said sequence of transformed digital data values as 
25 said digital data input values are transformed into said 
transformed digital data values. 

21. A method of transforming a sequence of input 
digital data values into a sequence of transformed digital 
data values, said sequence of input digital data values 

3 0 comprising a boundary subsequence and a non-boundary 

subsequence, comprising the steps of: 

running a number of said input digital data 
values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
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digital filter and through a high pass boundary 
forward transform perfect reconstruction digital 
filter to produce a first subsequence of said sequence 
of transformed digital data values, said first 
subsequence of said sequence of transformed digital 
data values comprising interleaved low and high 
frequency transformed digital data values; and 

running a number of said input digital data 
values of said non-boundary subsequence through a low 
pass non-boundary forward transform perfect 
reconstruction digital filter and also through a high 
pass non-boundary forward transform perfect 
reconstruction digital filter to produce a second 
subsequence of said sequence of transformed digital 
data values, said second subsequence of said sequence 
of transformed digital data values comprising 
interleaved low and high frequency transformed digital 
data values, said low pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
number of coefficients than said low pass non-boundary 
forward transform perfect reconstruction digital 
filter, said high pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
number of coefficients than said high pass non- 
boundary forward transform perfect reconstruction 
digital filter. 



22. A method, comprising the steps of: 

generating a sub-band decomposition having a 
plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data 
value, a second of said plurality of octaves 
comprising at least one second digital data value; 

calculating a sum of the absolute values of said 
at least one first digital data value; 

determining if said at least one first digital 
data value is interesting usin'^ a first t*ir'3Siio^ 
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limit; 

calculating a sum of the absolute values of said 
at least one second digital data value; and 

determining if said at least one second digital 
data value is interesting using a second threshold 
limit. 



23. A method of traversing a tree decomposition, said 
tree decomposition comprising a plurality of transformed 
data values, each of said plurality of transformed data 

10 values having a unique address identified by coordinates X 
and Y, comprising the step of: 

calculating at least four transformed data value 
addresses by incrementing a count, the count 
comprising one bit Ci^ in the X coordinate and one bit 
15 Cly in the Y coordinate, to generate said at least 

four transformed data value addresses. 

24. A method, comprising the step of: 
determining an address of a transformed data value in 

a tree decomposition by shifting a value a number of times, 
20 said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
number of times being at least dependent upon said one 
octave . 



25 



25. A method, comprising the step of: 
determining an address of a transformed data value in 
a tree decomposition by multiplying a value by a factor, 
said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
factor being at least dependent upon said one octave. 

3 0 25. A method, comprising the step of: 

determining an address of a transformed data value in 
a tree decomposition by shifting a value a number of times, 
said tree decomposition having a number of frequency sub- 
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bands, said transformed data value being in one of said 
frequency sub-bands, sa:id number of times being at least 
dependent upon said frequency sub-band. 

27. A method, comprising the step of: 

5 determining an address of a transformed data value in 

a tree decomposition by performing a logical operation upon 
a value, said tree decomposition having a number of 
frequency sub-bands, said transformed data value being in 
one of said frequency sub-bands, said logical operation 
10 performed being at least dependent upon said one frequency 
sub-band . 

28. The method of Claim 27, wherein said logical 
operation is a bit-wise logical AND operation. 

29. A method for determining a low pass quasi -perfect 
15 reconstruction filter and a high pass quasi-perfect 

reconstruction filter from a wavelet function, said low 
pass quasi-perfect reconstruction filter having a plurality 
of coefficients, said high pass quasi-perfect 
reconstruction filter having a plurality of coefficients, 

20 comprising the steps of: 

determining a low pass wavelet digital filter and a 
high pass wavelet digital filter from said wavelet 
function, said low pass wavelet digital filter having a 
plurality of coefficients, said high pass wavelet digital 

25 filter having a plurality of coefficients; 

choosing the coefficients of said low pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of i is 
processed by said low pass quasi-perfect reconstruction 

3 0 digital filter the output of said low pass quasi-perfect 
reconstruction digital filter is exactly a power of 2; and 

choosing the coefficients of the high pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of i is 
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processed by said high pass quasi-perfect reconstruction 
digital filter the output of said high pass quasi-perfect 
reconstruction digital filter is exactly 0, whereby each of 
the plurality of coefficients of said low pass quasi- 
5 perfect reconstruction digital filter is substantially 
identical to a corresponding one of said plurality of 
coefficients of said low pass wavelet digital filter, and 
whereby each of the plurality of coefficients of said high 
pass quasi-perfect reconstruction digital filter is 
10 substantially identical to a corresponding one of said 

plurality of coefficients of said high pass wavelet digital 
filter. 

30. A method of estimating a compression ratio of a 
number of original data values to a number of compressed 

15 data values at a value of a quality factor Q, comprising 
the steps of: 

examining a first block of transformed data values of 
a tree, said first block being one of a number of lowest 
frequency blocks of a high pass component sub-band, said 

2 0 tree being part of a sub-band decomposition; and 

determining a value of said quality factor Q at which 
said data values of said first block would be converted 
into compressed data values, and not determining a value of 
said quality factor Q at which any other block of data 

25 values of said tree would be converted into a number of 
compressed data values. 

31. The method of Claim 30, wherein said number of 
original data values represents a frame of an image. 

32. The method of Claim 31, further comprising the 
30 step of: 

determining a number of lowest frequency blocks of 
said high pass component sub-band which would be converted 
into compressed data values given a value of said quality 
factor Q. 



wo 94/23385 



PCT/GB94/00677 



- 818 - 

33. A method of transforming a sequence of image data 
values, comprising the step of: 

filtering said sequence of image data values using a 
quasi-perfect reconstruction filter to generate a 
5 decomposition having a plurality of octaves, said quasi- 
perfect reconstruction filter having six coefficients. 

34. The method of Claim 33, wherein said six 
coefficients are selected from the group consisting of: 
30/128, 73/128, 41/128, 12/128, 7/128 and 3/128, 

10 irrespective of sign. 

35. A method of detecting motion in a tree 
decomposition, said tree decomposition comprising a 
plurality of octaves of blocks of data values, comprising 
the steps of: 

15 comparing data values of a first block in an octave 

with data values of a second block in said octave; and 

generating a token indicating motion based on said 
comparing. 

36. A method, comprising the steps of: 

20 generating a sub-band decomposition having a plurality 

of octaves, a first of said plurality of octaves comprising 
at least one first digital data value, a second of said 
plurality of octaves comprising at least one second digital 
data value; 

25 determining if said at least one first digital data 

value is interesting using a first threshold limit; and 

determining if said at least one second digital data 
value is interesting using a second threshold limit. 

37. A method, comprising the steps of: 

10 generating a sub-band decomposition of a first frame 

having a plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data value, a 
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second of said plurality of octaves comprising at least one 
second digital data value; 

generating a sub-band decomposition of a second frame 
having a plurality of octaves, a first of said plurality of 
5 octaves comprising at least one first digital data value, a 
second of said plurality of octaves comprising at least one 
second digital data value; 

comparing said first digital data value of said first 
frame with said first digital data value of said second 
10 frame using a first threshold compare; and 

comparing said second digital data value of said first 
frame with said second digital data value. of said second 
frame using a second threshold compare. 

38. A method, comprising the steps of: 

15 reading a sequence of data values from a plurality of ' 

memory locations, each of said data values being stored in 
a separate one of said plurality of memory locations; and 

overwriting some of said memory locations in a 
sequence as said data values are transformed into a 

20 sequence of transformed data values of a sub-band 
decomposition. 

39. A method, comprising the steps of: 

performing a function on a plurality of data values of 
a new block to generate a first output value, said new 

2 5 block being a block of data values of a sub-band 

decomposition of a new frame; 

performing said function on a plurality of numbers to 
generate a second output value, each of said numbers 
substantially equalling a difference of a data value in 

3 0 said plurality of data values of said new block and a 

corresponding data value in a corresponding plurality of 
data values of an old block, said old block being a block 
of data values of a sub-band decomposition of an old frame; 
and 

35 generatina a token if said -F-i-^s-*- -r-T,,- i _ 
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predetermined relationship with respect to said second 
output value. 

40. The method of Claim 39, wherein said token is a 
SEND_STILL token. 

41. A method, comprising the steps of: 
performing a function on a plurality of data values of 

a new block to generate a corresponding plurality of output 
values, said new block being a block of data values of a 
sub-band decomposition; 

comparing each of said plurality of output values with 
a predetermined number; and 

generating a token if substantially all of said output 
values have a predetermined relationship with respect to 
said predetermined number. 

15 42. The method of Claim 41, wherein said token is a 

VOID token. 

43. A method, comprising the steps of: 
subtracting each one of a plurality of data values of 
a new block with a corresponding one of a plurality of data 
2 0 values of a old block to generate a corresponding plurality 
of output values, said new block being a block of data 
values of a sub-band decomposition of a new frame, said old 
block being a block of data values of a sub-band 
decomposition of a old frame; 
25 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 
values have a predetermined relationship with respect to* 
said predetermined number. 

30 44. The method of Claim 43, wherein said token is a 

VOID token. 
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45. A method, comprising the steps of: 
determining an absolute value for each of a plurality 

of data values of a block of a sub-band decomposition; 
determining a sum of said absolute values; and 
generating a token based on a comparison of said sum 

with a predetermined number. 

46. The method of Claim 45, wherein said token is a 
VOID token. 



47. A method, comprising the steps of: 
10 processing a sequence of first image data values using 

a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to create a first sequence of 
transformed data values, said low pass forward transform 
15 perfect reconstruction digital filter and said high pass 
forward transform perfect reconstruction digital filter 
each having coefficients chosen from a first group of 
coefficients independent of sign; 

converting said first sequence of transformed data 
2 0 values into a second sequence of transformed data values; 
and 

using digital circuitry to process said second 
sequence of transformed data values using a low pass 
inverse transform perfect reconstruction digital filter and 

25 a high pass inverse transform perfect reconstruction 

digital filter into a sequence of second image data values, 
said low pass inverse transform perfect reconstruction 
digital filter and said high pass inverse transform perfect 
reconstruction digital filter each having coefficients 

30 chosen from a second group of coefficients independent of 
sign. 



48. The method of claim 47, wherein said digital 
circuitry used to process said second sequence of 
transformed data values is a digital computer having a 
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microprocessor, 

49. The method of claim 47, wherein at least one of 
the coefficients in said first group of coefficients is not 
contained in said second group of coefficients. 

5 50. The method of claim 47, wherein said first group 

of coefficients has a different number of coefficients than 
said second group of coefficients. 

51. The method of claim 50, wherein said sequence of 
first image data values is a sequence of chrominance data 

10 values. 

52. The method of claim 50, wherein said low pass 
forward transform perfect reconstruction digital filter and 
said high pass forward transform perfect reconstruction 
digital filter each have four coefficients, and wherein 

15 said low pass inverse transform perfect reconstruction 

digital filter and said high pass inverse transform perfect 
reconstruction digital filter each have two coefficients. 

53. The method of claim 52, wherein said sequence of 
first image data values is a sequence of chrominance data 

20 values. 

54. The method of claim 47, wherein each of said 
coefficients of said low pass inverse transform perfect 
reconstruction digital filter and said high pass inverse 
transform perfect reconstruction digital filter is selected 

25 from the group consisting of: 5/8, 3/8 and 1/8, independent 
of sign. 

55. The method of claim 47, wherein said converting 
step comprises the steps of: 

encoding said first sequence of transformed data 
3 0 values into a compressed data stream; and 
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decoding said compressed data stream into said second 
sequence of transformed data values. 

56. A method comprising the step of using digital 
circuitry to process a sequence of image data values using 
5 a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to generate a sub-band 
decomposition, said low pass forward transform perfect 
reconstruction digital filter and said high pass forward 
10 transform perfect reconstruction digital filter each having 
four coefficients, each of said four coefficients being 
selected from the group consisting of: 5/8, 3/8 and 1/8, 
independent of sign. 

57. The method of claim 56, wherein said digital 
15 circuitry comprises means for low pass forward transform 

perfect reconstruction digital filtering and for high pass 
forward transform perfect reconstruction digital filtering. 

58. A method comprising the step of using digital 
circuitry to process a sequence of transformed data values 

20 of a sub-band decomposition using an odd inverse transform 
perfect reconstruction digital filter and an even inverse 
transform perfect reconstruction digital filter, said odd 
inverse transform perfect reconstruction digital filter and 
said even inverse transform perfect reconstruction digital 

25 filter each having four coefficients, each of said four 
coefficients being selected from the group consisting of: 
5/8, 3/8 and 1/8, independent of sign. 

59. The method of claim 58, wherein said digital 
circuitry is a digital computer having a microprocessor. 

3 0 60. A method comprising the step of generating a 

compressed data stream indicative of a video sequence from 
a sub-band decomposition, said compressed data stream 
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comprising a first data value, a first token, a second data 
value, and a second token, said first token being 
indicative of a first encoding method used to encode said 
first data value, said second token being indicative of a 
5 second encoding method used to encode said second data 
value, said first token consisting of a first number of 
bits and said second token consisting of a second number of 
bits. 



61. The method of claim 60, wherein said first 

10 encoding method is taken from the group consisting of: SEND 
mode, STILL_SEND mode, VOID mode, and STOP mode. 

62. The method of claim 60, wherein said first token 
is a single bit token. 

63. A method, comprising the steps of: 

15 forward transforming image data values to generate a 

first sequence of transformed data values of a first sub- 
band decomposition, said first sub-band decomposing having 
a first number of octaves; 

converting said first sequence of transformed data 

2 0 values into a second sequence of transformed data values; 

using digital circuitry to inverse transforming said 
second sequence of transformed data values into a third 
sequence of transformed data values, said third sequence of 
transfozrmed data values comprising a second sub-band 

25 decomposition having a second number of octaves, said 
second number of octaves being smaller than said first 
number of octaves, said second sub-band decomposition 
having a low pass component, said low pass component of 
said second sub-band decomposition comprising data values 

30 indicative of rows of data values of an image, said rows of 
said image extending in a first dimension, said image also 
having columns of said data values extending in a second 
dimension; 

expanding said low pass component in said first 
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dimension using interpolation to generate an interpolated 
low pass component; and 

expanding said interpolated low pass component in said 
second dimension by replicating rows of said data values of 
5 said interpolated low pass component. 

64. The method of claim 63, wherein said digital 
circuitry is a digital computer having a microprocessor. 

65. The method of claim 63, wherein said converting 
step comprises the steps of: 

10 encoding said first sequence of transformed data 

values into a compressed data stream comprising tokens and 
encoded data values; and 

decoding said compressed data stream into said second 
sequence of transformed data values. 
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